Outlook VBA忽略筛选器并删除共享日历中的所有约会

Sub DeleteAppointmentsInSharedCalendar()
    Dim objNamespace As Outlook.Namespace
    Dim objRecipient As Outlook.Recipient
    Dim objFolder As Outlook.Folder
    Dim objAppointment As Outlook.AppointmentItem
    
    ' 获取共享日历的根文件夹
    Set objNamespace = Application.GetNamespace("MAPI")
    Set objRecipient = objNamespace.CreateRecipient("共享日历的邮箱地址")
    Set objFolder = objNamespace.GetSharedDefaultFolder(objRecipient, olFolderCalendar)
    
    ' 遍历共享日历中的所有约会并删除
    For Each objAppointment In objFolder.Items
        objAppointment.Delete
    Next objAppointment
    
    ' 释放对象
    Set objAppointment = Nothing
    Set objFolder = Nothing
    Set objRecipient = Nothing
    Set objNamespace = Nothing
End Sub