Comment annuler par lots toutes les réunions Outlook programmées dans une plage de dates spécifique

Si vous souhaitez annuler toutes les réunions programmées dans une plage de dates spécifique dans votre Outlook, vous pouvez utiliser les moyens présentés dans cet article. Cela peut vous éviter de rechercher et d'annuler manuellement ces réunions.

Si, pour certaines raisons, vous ne pouvez pas organiser ou participer aux réunions qui se tiendront dans une certaine plage de dates futures, vous souhaiterez peut-être annuler toutes ces réunions. Généralement, il faut d'abord les découvrir puis les annuler une par une. Ce sera assez gênant. Par conséquent, dans ce qui suit, nous vous partagerons une autre manière, qui est beaucoup plus pratique.

Annulation groupée de toutes les réunions programmées dans une plage de dates spécifique

1. Pour commencer, lancez votre programme Outlook.
2. Ensuite, dans Outlook, vous devez appuyer sur les touches "Alt + F11".
3. Ensuite, vous entrerez dans la fenêtre "Microsoft Visual Basic pour Applications".
4. Dans cette fenêtre, vous devez ouvrir un module inutilisé ou simplement en insérer un nouveau.
5. Ensuite, vous pouvez copier le code VBA suivant dans ce module.

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. Finalement, vous pouvez exécuter cette macro dès maintenant.

• Dans la fenêtre de macro actuelle, appuyez sur la touche "F5".
• Ensuite, vous devrez spécifier la plage de dates.
• Après cela, une autre boîte de dialogue s'affichera, vous demandant d'opter pour un dossier de calendrier source et de cliquer sur "OK".
• Enfin, lorsque la macro se termine, vous pouvez voir que toutes les réunions de la plage de dates spécifique ont été annulées.
• Dans le dossier "Éléments envoyés", vous pouvez trouver les annulations de réunion, comme la capture d'écran ci-dessous :

Corriger les erreurs Outlook

Si vous utilisez Outlook depuis des décennies, vous avez dû rencontrer plusieurs erreurs. Heureusement, Outlook est livré avec un outil de réparation intégré - Scanpst. Vous pouvez l'utiliser pour réparer Outlook les erreurs. Pourtant, si cela échoue, votre dernier recours est des outils de réparation externes comme DataNumen Outlook RepairIl peut analyser les fichiers Outlook et corriger la plupart des erreurs, et même restaurer facilement les données Outlook endommagées.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com