Batchen Annuleer alle Outlook-vergaderingen die in een specifiek datumbereik zijn gepland

Als u alle vergaderingen die in een specifiek datumbereik in uw Outlook zijn gepland, wilt annuleren, kunt u de middelen gebruiken die in dit artikel zijn geïntroduceerd. Het kan u behoeden voor het handmatig zoeken en annuleren van dergelijke vergaderingen.

Als u, om een ​​of andere reden, geen vergaderingen kunt organiseren of eraan kunt deelnemen die in een bepaald datumbereik in de toekomst zullen worden gehouden, wilt u misschien al deze vergaderingen annuleren. Over het algemeen moet u ze eerst achterhalen en vervolgens een voor een annuleren. Het zal behoorlijk lastig zijn. Daarom zullen we u in het volgende op een andere manier delen, die veel handiger is.

Batch Annuleer alle vergaderingen die zijn gepland in een specifiek datumbereik

1. Start allereerst uw Outlook-programma.
2. Vervolgens moet u in Outlook op de toetsen "Alt + F11" drukken.
3. Vervolgens komt u in het venster "Microsoft Visual Basic for Applications".
4. In dit venster moet u een ongebruikte module openen of gewoon een nieuwe invoegen.
5. Vervolgens kunt u de volgende VBA-code naar deze module kopiëren.

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. Uiteindelijk zou u deze macro nu kunnen uitvoeren.

• Druk in het huidige macrovenster op de toets "F5".
• Vervolgens moet u het datumbereik opgeven.
• Daarna wordt een ander dialoogvenster weergegeven, waarin u wordt gevraagd te kiezen voor een bronagendamap en op "OK" te klikken.
• Als de macro ten slotte is afgelopen, kunt u zien dat alle vergaderingen in het specifieke datumbereik zijn geannuleerd.
• In de map "Verzonden items" vindt u de annuleringen van de vergadering, zoals in de onderstaande schermafbeelding:

Fix Outlook-fouten

Als u Outlook al decennia gebruikt, moet u verschillende fouten zijn tegengekomen. Gelukkig zit Outlook vol met een ingebouwde reparatietool - Scanpst. U kunt het gebruiken om Outlook repareren fouten. Maar als het niet lukt, is uw laatste redmiddel externe fix-tools zoals DataNumen Outlook RepairHet kan Outlook-bestanden scannen, de meeste fouten herstellen en zelfs beschadigde Outlook-gegevens eenvoudig terugzetten.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com