如何批量取消在特定日期范围内安排的所有 Outlook 会议

如果您想在 Outlook 中取消在特定日期范围内安排的所有会议，您可以使用本文介绍的方法。 它可以使您免于手动搜索和取消此类会议。

如果由于某些原因，您无法组织或参加将在未来某个日期范围内举行的会议，您可能希望取消所有此类会议。 一般需要先找出来，然后一一取消。 会很麻烦的。 因此，接下来，我们将另一种方式分享给大家，这样就方便多了。

批量取消在特定日期范围内安排的所有会议

1. 首先，启动 Outlook 程序。
2. 然后，在 Outlook 中，您需要按“Alt + F11”键按钮。
3. 接下来，您将进入“Microsoft Visual Basic for Applications”窗口。
4. 在此窗口中，您应该打开一个未使用的模块或插入一个新模块。
5. 随后，您可以将以下 VBA 代码复制到该模块中。

Sub BatchCancelAllMeetingsInSpecificDateRange()
    Dim dStartDate As Date
    Dim dEndDate As Date
    Dim objCalendarFolder As Outlook.folder
    Dim objItems As Outlook.Items
    Dim objItemsInDateRange As Outlook.Items
    Dim objAppointment As Outlook.AppointmentItem
    Dim objResponse As Outlook.MeetingItem
 
    'Specify the start date and end date
    dStartDate = InputBox("Enter the start date:", , "10/1/2017")
    dEndDate = InputBox("Enter the end date:", , "10/8/2017")
 
    If dStartDate <> #1/1/4501# And dEndDate <> #1/1/4501# Then
       'Select a calendar folder
       Set objCalendarFolder = Outlook.Application.Session.PickFolder
       Set objItems = objCalendarFolder.Items
       objItems.IncludeRecurrences = True
       objItems.Sort "[Start]"
 
       'Get the appointments in the specific date range
       strFilter = "[Start] >= " & Chr(34) & dStartDate & " 00:00 AM" & Chr(34) & " AND [End] <= " & Chr(34) & dEndDate & " 11:59 PM" & Chr(34)
       Set objItemsInDateRange = objItems.Restrict(strFilter)
 
       objItemsInDateRange.Sort "[Start]"
       For Each objAppointment In objItemsInDateRange
           'Cancel the meetings in this date range
           If objAppointment.MeetingStatus = olMeeting Then
              If objAppointment.Organizer = Outlook.Session.CurrentUser Then
                 objAppointment.MeetingStatus = olMeetingCanceled
                 objAppointment.Save
                 objAppointment.Send
                 objAppointment.Delete
              Else
                 Set objResponse = objAppointment.Respond(olMeetingDeclined)
                 objResponse.Send
                 objAppointment.Delete
              End If
            End If
       Next
    End If
End Sub

6. 最终，您可以立即运行此宏。

• 在当前宏窗口中，按“F5”键按钮。
• 接下来，您将需要指定日期范围。
• 之后，将显示另一个对话框，要求您选择源日历文件夹并单击“确定”。
• 最后，当宏完成时，您可以看到特定日期范围内的所有会议都已取消。
• 在“已发送邮件”文件夹中，您可以找到会议取消，如下图所示：

修复 Outlook 错误

如果您使用 Outlook 几十年，您一定遇到过几个错误。 幸运的是，Outlook 附带了一个内置的修复工具——Scanpst。 你可以用它来 修复Outlook 错误。 然而，如果它失败了，你最后的选择是外部修复工具，比如 DataNumen Outlook Repair它可以扫描 Outlook 文件并修复大多数错误，甚至可以轻松恢复损坏的 Outlook 数据。

作者简介：

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