运行时错误438：从Excel中删除Outlook约会

Question

我编写了以下代码，以从Outlook日历的子文件夹中删除所有约会。 我一直在努力寻找在代码中调用此子文件夹的正确方法，但现在陷入了困境。 现在，它似乎能够调用正确的文件夹，但是无法继续删除约会。 在尝试将其定向到子文件夹之前，我已在默认日历上成功测试了此代码。

我在下面的代码行中注释了我收到运行时错误438的地方：“对象不支持此属性或方法”。

我希望任何人都能让我知道我需要更改以解决此问题的方式。

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").Items

    ''''For i = olAptItemFolder.Items.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

换线

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

至

For i = olAptItemFolder.Count To 1 Step - 1