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

Question

The code below deletes appointments in a subfolder of the Outlook default calendar. I have commented out the line giving the run-time error 462: "The remote server machine does not exist or is unavailable".

Is there a change I could make to this code to solve this error? Thanks for any guidance.

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 has no Count property. olAptItemFolder.Items does. Apart from the issues others noted in comments above, try

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

Edited to add: if you are not setting a reference to something's object lirary, you can't use its enums unless you fully qualify each use. It's generally simpler, easier and quicker to find out the numerical value of the enum and use that instead. Then add a comment on the end of the line to remind yoursef, six months from now, that '9 = olFolderCalendar