运行时错误 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

编辑添加：如果您没有设置对某物的对象库的引用，则除非您完全限定每次使用，否则不能使用其枚举。 找出枚举的数值并使用它通常更简单、更容易、更快。 然后在行尾添加注释以提醒你自己，六个月后， '9 = olFolderCalendar