特定の日付範囲でスケジュールされたすべてのOutlook会議をバッチキャンセルする方法

Outlookソリューション 2025 年 9 月 29 日

Outlookで特定の日付範囲にスケジュールされているすべての会議をキャンセルする場合は、この記事で紹介した方法を使用できます。このような会議を手動で検索してキャンセルする手間を省くことができます。

何らかの理由で、将来の特定の日付範囲で開催される会議を開催または参加できない場合は、そのような会議をすべてキャンセルすることをお勧めします。通常、最初にそれらを見つけてから、XNUMXつずつキャンセルする必要があります。かなり面倒です。したがって、以下では、はるかに便利な別の方法を紹介します。

特定の日付範囲でスケジュールされたすべての会議をバッチキャンセルする

まず最初に、Outlookプログラムを起動してください。
次に、Outlookで、「Alt + F11」キーボタンを押す必要があります。
次に、「Microsoft Visual BasicforApplications」ウィンドウが表示されます。
このウィンドウで、未使用のモジュールを開くか、新しいモジュールを挿入する必要があります。
その後、次の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

最終的には、このマクロを今すぐ実行できます。

現在のマクロウィンドウで、「F5」キーボタンを押します。
次に、日付範囲を指定する必要があります。
その後、別のダイアログボックスが表示され、ソースカレンダーフォルダを選択して[OK]をクリックするように求められます。
最後に、マクロが終了すると、特定の日付範囲のすべての会議がキャンセルされたことがわかります。
「送信済みアイテム」フォルダには、以下のスクリーンショットのように、会議のキャンセルが表示されます。

Outlookのエラーを修正する

Outlookを何十年も使用している場合は、いくつかのエラーが発生しているはずです。幸い、Outlookにはスキャンプストという修復ツールが組み込まれています。あなたはそれを使用することができます Outlookを修正するエラー。それでも、失敗した場合の最後の手段は、次のような外部修正ツールです。 DataNumen Outlook RepairOutlookファイルをスキャンしてほとんどのエラーを修正できるだけでなく、破損したOutlookデータも簡単に復元できます。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com