So entfernen Sie stornierte Besprechungen automatisch aus Ihrem Outlook-Kalender

Vielleicht ist Ihnen aufgefallen, dass abgesagte Termine weiterhin in Ihrem Kalender angezeigt werden. Sie müssen sie manuell entfernen, was recht umständlich ist. Daher wünschen Sie sich sicher, dass Outlook abgesagte Termine automatisch entfernen kann. Dieser Beitrag hilft Ihnen dabei.

Eigentlich mein vorheriger Artikel - “So entfernen Sie stornierte Besprechungen taktvoll aus dem Outlook-Kalender”Hat einige Tipps zum manuellen Löschen abgesagter Besprechungen eingeführt. Außerdem gibt es im letzten Abschnitt dieses Artikels eine Möglichkeit, Outlook die abgesagten Besprechungen automatisch entfernen zu lassen. Mit dieser Methode kann Outlook jedoch auch alle Besprechungseinladungen automatisch annehmen. Dies ist manchmal nicht das, was Sie wollen. Deshalb zeigen wir Ihnen hier einen anderen Weg, der ziemlich einfach und viel bequemer ist.

Abgebrochene Besprechungen automatisch aus dem Kalender entfernen

1. Starten Sie als Erstes Ihr Outlook-Programm.
2. Anschließend sollten Sie im Outlook-Fenster die Tasten „Alt + F11“ drücken.
3. Als nächstes müssen Sie im nachfolgenden VBA-Editorfenster auf das Projekt „ThisOutlookSession“ auf der linken Seite doppelklicken.
4. Anschließend sollten Sie den folgenden VBA-Code in dieses Projekt kopieren.

Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
End Sub

'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objCalendar As Outlook.Folder
    Dim objAppointments As Outlook.Items
    Dim i As Long
    Dim objMeeting As Outlook.AppointmentItem
 
    If TypeOf Item Is MeetingItem Then
       If Left(LCase(Item.Subject), 9) = "canceled:" Then
          'Remove canceled meeting
          Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
          Set objAppointments = objCalendar.Items
 
          For i = objAppointments.count To 1 Step -1
              Set objAppointment = objAppointments.Item(i)
              If Left(objAppointment.Subject, 9) = "Canceled:" Then
                 objAppointment.Delete
              End If
         Next
       End If
   End If
End Sub

5. Danach können Sie diesem Projekt ein digitales Zertifikat zuweisen. Klicken Sie auf "Extras" und wählen Sie "Digitale Signatur". Folgen Sie dann dem Assistenten, um den Vorgang abzuschließen.
6. Schließen Sie später das Fenster "Microsoft Visual Basic für Applikationen" und ändern Sie Ihre Outlook-Makroeinstellungen, um signierte Makros zuzulassen.
7. Schließlich könnten Sie Outlook neu starten, um das neue VBA-Projekt zu aktivieren.
8. Seitdem wird jedes Mal, wenn eine Terminabsage in Ihrem Posteingang eingeht, das Makro gestartet und entfernt den abgesagten Termin automatisch aus dem Kalender.

Nutzen Sie das Inbox Repair Tool in vollem Umfang

Viele Outlook-Benutzer wurden möglicherweise von verschiedenen Problemen in ihrem Outlook geplagt, einschließlich kleiner Fehlfunktionen, Fehlermeldungen und plötzlicher Nichtbeantwortung sowie schwerwiegender Schäden usw. Um ehrlich zu sein, verfügt Outlook für die kleinen Probleme über ein eingebautes Reparaturwerkzeug - scanpst, die sie mit Leichtigkeit beheben können. Wenn Sie in Outlook auf Probleme stoßen, können Sie damit eine Aufnahme machen. Wenn dies fehlschlägt, können Sie weiterhin ein erfahrenes und bemerkenswertes Tool von Drittanbietern in Anspruch nehmen, z DataNumen Outlook Repair.

Einführung des Autors:

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