Hoe u geannuleerde vergaderingen automatisch kunt verwijderen uit uw Outlook-agenda

Je hebt misschien gemerkt dat geannuleerde vergaderingen nog steeds in je agenda staan. Je moet ze handmatig verwijderen, wat erg omslachtig is. Je zou dus graag zien dat Outlook geannuleerde vergaderingen automatisch verwijdert. Dit artikel helpt je daarbij.

Eigenlijk is mijn vorige artikel - "Geannuleerde vergaderingen tactvol verwijderen uit de Outlook-agenda”Heeft enkele tips geïntroduceerd om geannuleerde vergaderingen handmatig te verwijderen. In het laatste gedeelte van dat artikel is er ook een manier om Outlook de geannuleerde vergaderingen automatisch te laten verwijderen. Maar met die methode kan Outlook ook automatisch alle uitnodigingen voor vergaderingen accepteren. Dit is soms niet wat je wilt. Daarom laten we u hier een andere manier zien, die vrij eenvoudig en veel handiger is.

Verwijder automatisch geannuleerde vergaderingen uit uw Outlook-agenda

Geannuleerde vergaderingen automatisch verwijderen uit Agenda

  1. Start allereerst uw Outlook-programma.
  2. Vervolgens moet u op de toets "Alt + F11" drukken in het Outlook-venster.
  3. Vervolgens moet u in het volgende VBA-editorvenster aan de linkerkant dubbelklikken op het "ThisOutlookSession" -project.
  4. Kopieer vervolgens de volgende VBA-code naar dit project.
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

VBA-code - Verwijder automatisch geannuleerde vergaderingen uit de agenda

  1. Daarna kunt u een digitaal certificaat aan dit project toewijzen. Klik op "Extra" en kies "Digitale handtekening". Volg daarna de wizard om het te voltooien.
  2. Sluit later het venster "Microsoft Visual Basic for Applications" en ga naar het wijzigen van uw Outlook-macro-instellingen om ondertekende macro's toe te staan.
  3. Uiteindelijk kunt u Outlook opnieuw opstarten om het nieuwe VBA-project te activeren.
  4. Sindsdien zal de macro, telkens wanneer er een annuleringsbericht van een vergadering in je inbox binnenkomt, automatisch de geannuleerde vergadering uit de agenda verwijderen.

Maak volledig gebruik van de Inbox Repair Tool

Veel Outlook-gebruikers zijn mogelijk geplaagd door diverse problemen in hun Outlook, waaronder kleine storingen, foutmeldingen en plotseling niet reageren, evenals ernstige schade, enz. Om eerlijk te zijn, voor de kleine problemen heeft Outlook een ingebouwde reparatietool - scanpst, die ze gemakkelijk kunnen repareren. Daardoor kunt u, wanneer u problemen tegenkomt in Outlook, een foto maken. Als het niet lukt, kunt u de hulp blijven gebruiken van een ervaren en opmerkelijk hulpmiddel van derden, zoals DataNumen Outlook Repair.

Auteur Introductie:

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

Reacties zijn gesloten.