运行时错误462-从Excel删除Outlook约会

Question

下面的代码在Outlook默认日历的子文件夹中删除约会。我已经评论了该行，给出了运行时错误462："远程服务器计算机不存在或不可用"。

我可以对此代码做出更改以解决此错误？感谢您的任何指导。

Public Sub DeleteAppt()
Dim olApp As Object 'Outlook.Application
Dim olNS As Object 'Outlook.Namespace
Dim olAptItemFolder As Object 'Outlook.Folder
Dim olAptItem As Object 'Outlook.AppointmentItem
Dim i As Long
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.Session
Set olAptItemFolder = olNS.GetDefaultFolder(olFolderCalendar).Folders("TestCal")
''''For i = olAptItemFolder.Count To 1 Step -1
    Set olAptItem = olAptItemFolder.Items(i)
    If olAptItem.Subject Like "***" Then
        olAptItem.Delete
    End If
Next i
Set olAptItem = Nothing
Set olAptItemFolder = Nothing
Set olApp = Nothing
End Sub

Answer 1

olAptItemFolder没有 Count属性。olAptItemFolder.Items做。除了上面评论中其他提到的问题，请尝试

For i = olAptItemFolder.Items.Count To 1 Step -1

编辑要添加：如果您不设置对某物的对象lirary的引用，则除非您完全符合每种用途的资格，否则不能使用其枚举。通常更简单，更容易，更快地找出枚举的数值并使用它。然后在生产线的末尾添加评论，以提醒您，从六个月起，'9 = olFolderCalendar