如何批量取消在特定日期範圍內安排的所有 Outlook 會議

立即分享:

如果您想取消 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

VBA代碼-批量取消特定日期範圍內安排的所有會議

  1. 最終,您現在就可以運行這個宏了。
  • 在當前宏窗口中,按“F5”鍵。
  • 接下來,您將需要指定日期範圍。指定日期範圍
  • 之後,將顯示另一個對話框,要求您選擇源日曆文件夾並單擊“確定”。
  • 最後,當宏完成時,您可以看到特定日期範圍內的所有會議都已取消。
  • 在“已發送郵件”文件夾中,您可以找到取消的會議,如下圖所示:會議取消

修復Outlook錯誤

如果您使用 Outlook 數十年,您一定遇到過一些錯誤。 幸運的是,Outlook 附帶了一個內置修復工具 – Scanpst。 你可以用它來 修復Outlook 錯誤。 然而,如果失敗了,您最後的手段是外部修復工具,例如 DataNumen Outlook Repair它可以掃描 Outlook 檔案並修復大多數錯誤,甚至可以輕鬆恢復損壞的 Outlook 資料。

作者簡介:

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

立即分享:

評論被關閉。