自动删除已取消的会议

Question

[每当收到会议取消通知时，我都希望从收件箱中删除会议取消请求并且从日历中删除会议。以下代码可用于删除电子邮件，但不能删除会议。我必须手动转到日历，然后单击“从日历中删除”。有什么想法吗？

Sub RemoveCancelledMeetingEmails()
    Dim objInbox As Outlook.Folder
    Dim objInboxItems As Outlook.Items
    Dim i As Long


    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    For Each Item In objInbox.Items
        If TypeOf Item Is Outlook.MeetingItem Then
            Dim objMeeting As Outlook.MeetingItem: Set objMeeting = Item
            If objMeeting.Class = 54 Then
                Dim objAppointment As Outlook.AppointmentItem
                'Set objAppointment = objMeeting.GetAssociatedAppointment(True)
                'objMeeting.Display
                objMeeting.Delete
                'Item.Delete
            End If
        End If
    Next

End Sub

Answer 1

取消注释GetAssociatedAppointment行（将参数更改为false，以避免创建约会，如果约会不存在，并调用objAppointment.Delete