如何从 Outlook 日历中自动删除已取消的会议

展望解决方案 2025 年 9 月 29 日
立即分享：

您可能已经注意到，取消的会议仍将存在于您的日历中。 它需要你手动删除它，这太麻烦了。 因此，您一定希望 Outlook 能够自动删除取消的会议。 这个ost 会帮助你实现它。

实际上，我之前的文章——“如何巧妙地从 Outlook 日历中删除已取消的会议”介绍了一些手动删除已取消会议的技巧。 此外，在那篇文章的最后一节中，有一种方法可以让 Outlook 自动删除已取消的会议。 但该方法也会让 Outlook 自动接受所有会议邀请。 有时这不是您想要的。 因此，在这里我们将向您展示另一种方法，该方法非常简单且方便得多。

从 Outlook 日历中自动删除已取消的会议

自动从日历中删除已取消的会议

  1. 一开始，start 您的 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

VBA 代码 - 从日历中自动删除已取消的会议

  1. 之后，您可以为该项目分配数字证书。 单击“工具”并选择“数字签名”。 然后按照向导完成它。
  2. 稍后，关闭“Microsoft Visual Basic for Applications”窗口并更改 Outlook 宏设置以允许签名宏。
  3. 最终，你可以重新tart 您的 Outlook 以启用新的 VBA 项目。
  4. 从那时起，每当会议取消通知到达您的收件箱时，宏都会tart 和 auto 从日历中删除已取消的会议。

充分利用收件箱修复工具

许多 Outlook 用户可能都被 Outlook 中的各种问题所困扰，包括小故障、错误消息、突然无响应以及严重损坏等。老实说，对于小问题，Outlook 有一个内置的修复工具—— 扫描仪，可以轻松修复它们。 因此，当您在 Outlook 中遇到问题时，您可以使用它来解决问题。 如果失败，您可以继续借助经验丰富且出色的第三方工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 sql恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。