如何從Outlook日曆中自動刪除已取消的會議

您可能已經注意到，已取消的會議仍然會保留在您的日曆中。您需要手動刪除它們，這非常麻煩。因此，您一定希望 Outlook 可以自動刪除已取消的會議。本文將幫助您實現這一目標。

實際上，我上​​一篇文章-“如何巧妙地從Outlook日曆中刪除已取消的會議”介紹了一些手動刪除已取消會議的提示。 此外，在該文章的最後一部分中，有一種方法可以讓Outlook自動刪除已取消的會議。 但是，該方法還將使Outlook自動接受所有會議邀請。 有時這不是您想要的。 因此，這裡我們將向您展示另一種方法，它非常簡單並且更加方便。

自動從日曆中刪除已取消的會議

1. 首先，啟動 Outlook 程式。
2. 然後，您應該在Outlook窗口中按“ Alt + F11”鍵按鈕。
3. 接下來，在隨後的VBA編輯器窗口中，您需要雙擊左側的“ ThisOutlookSession”項目。
4. 隨後，您應該將以下VBA代碼複製到該項目中。

Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
End Sub

'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objCalendar As Outlook.Folder
    Dim objAppointments As Outlook.Items
    Dim i As Long
    Dim objMeeting As Outlook.AppointmentItem
 
    If TypeOf Item Is MeetingItem Then
       If Left(LCase(Item.Subject), 9) = "canceled:" Then
          'Remove canceled meeting
          Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
          Set objAppointments = objCalendar.Items
 
          For i = objAppointments.count To 1 Step -1
              Set objAppointment = objAppointments.Item(i)
              If Left(objAppointment.Subject, 9) = "Canceled:" Then
                 objAppointment.Delete
              End If
         Next
       End If
   End If
End Sub

5. 之後，您可以為該項目分配數字證書。 單擊“工具”，然後選擇“數字簽名”。 然後按照嚮導完成操作。
6. 以後，關閉“ Microsoft Visual Basic for Applications”窗口，然後轉到Outlook宏設置以允許簽名的宏。
7. 最後，您可以重新啟動 Outlook 以啟用新的 VBA 專案。
8. 從那時起，每當您的收件匣收到會議取消通知時，該巨集就會啟動並自動從日曆中刪除已取消的會議。

充分利用收件箱修復工具

許多Outlook用戶可能已經受到Outlook中各種問題的困擾，包括小的故障，錯誤消息，突然的不響應以及嚴重的損壞等。老實說，對於小的問題，Outlook具有內置的修復工具– 掃描儀，可以輕鬆修復它們。 因此，當遇到Outlook中的問題時，您可以使用它進行拍攝。 如果失敗，您可以繼續使用經驗豐富的卓越第三方工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 sql恢復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM