Abbrechen aller in einem bestimmten Zeitraum geplanten Outlook-Besprechungen

Wenn Sie alle in einem bestimmten Zeitraum in Ihrem Outlook geplanten Besprechungen abbrechen möchten, können Sie die in diesem Artikel beschriebenen Mittel verwenden. Dies erspart Ihnen das manuelle Suchen und Abbrechen solcher Besprechungen.

Wenn Sie aus bestimmten Gründen keine Besprechungen organisieren oder daran teilnehmen können, die in einem bestimmten zukünftigen Zeitraum stattfinden, möchten Sie möglicherweise alle diese Besprechungen absagen. Im Allgemeinen müssen Sie sie zuerst herausfinden und dann einzeln abbrechen. Es wird ziemlich mühsam sein. Daher werden wir Ihnen im Folgenden einen anderen Weg zeigen, der weitaus bequemer ist.

Stapelabbruch Alle Besprechungen, die in einem bestimmten Zeitraum geplant sind

1. Starten Sie zunächst Ihr Outlook-Programm.
2. In Outlook müssen Sie dann die Tasten „Alt + F11“ drücken.
3. Als Nächstes gelangen Sie zum Fenster "Microsoft Visual Basic für Applikationen".
4. In diesem Fenster sollten Sie ein nicht verwendetes Modul öffnen oder einfach ein neues einfügen.
5. Anschließend können Sie den folgenden VBA-Code in dieses Modul kopieren.

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. Schließlich könnten Sie dieses Makro jetzt ausführen.

• Drücken Sie im aktuellen Makrofenster die Taste „F5“.
• Als Nächstes müssen Sie den Datumsbereich angeben.
• Danach wird ein weiteres Dialogfeld angezeigt, in dem Sie aufgefordert werden, sich für einen Quellkalenderordner zu entscheiden und auf „OK“ zu klicken.
• Wenn das Makro fertig ist, können Sie sehen, dass alle Besprechungen im bestimmten Datumsbereich abgesagt wurden.
• Im Ordner "Gesendete Objekte" finden Sie die Absagen von Besprechungen, wie im folgenden Screenshot dargestellt:

Beheben Sie Outlook-Fehler

Wenn Sie Outlook jahrzehntelang verwendet haben, müssen mehrere Fehler aufgetreten sein. Glücklicherweise wird Outlook mit einem integrierten Reparatur-Tool geliefert - Scanpst. Sie können es verwenden, um Outlook reparieren Fehler. Wenn dies jedoch fehlschlägt, besteht Ihr letzter Ausweg in externen Fix-Tools wie DataNumen Outlook RepairEs kann Outlook-Dateien scannen und die meisten Fehler beheben und sogar beschädigte Outlook-Daten problemlos wiederherstellen.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Fix SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX