Sådan fjernes automatisk annullerede møder fra din Outlook-kalender

Outlook-løsninger September 29, 2025

Du har måske bemærket, at de aflyste møder stadig findes i din kalender. Det kræver, at du sletter dem manuelt, hvilket er for besværligt. Derfor bør du ønske, at Outlook automatisk kan fjerne aflyste møder. Dette indlæg vil hjælpe dig med at forstå det.

Faktisk, min tidligere artikel - “Sådan fjernes annullerede møder fra Outlook-kalender taktfuldt”Har introduceret nogle få tip til at slette annullerede møder manuelt. I den sidste sektion af denne artikel er der også en måde at lade Outlook automatisk fjerne de annullerede møder. Men denne metode tillader også, at Outlook automatisk accepterer alle mødeinvitationer. Dette er ikke, hvad du ønsker til tider. Derfor viser vi dig her en anden måde, som er ret enkel og meget mere praktisk.

Fjern automatisk annullerede møder fra din Outlook-kalender

Fjern automatisk annullerede møder fra kalenderen

  1. Start dit Outlook-program helt fra starten.
  2. Derefter skal du trykke på “Alt + F11” -tasten i Outlook-vinduet.
  3. Derefter skal du i det efterfølgende VBA-editorvindue dobbeltklikke på projektet “ThisOutlookSession” på venstre side.
  4. Derefter skal du kopiere følgende VBA-kode til dette projekt.
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-kode - Fjern automatisk annullerede møder fra kalenderen

  1. Derefter kan du tildele et digitalt certifikat til dette projekt. Klik på "Værktøjer" og vælg "Digital signatur". Følg derefter guiden for at fuldføre den.
  2. Senere skal du lukke vinduet "Microsoft Visual Basic for Applications" og gå til at ændre dine Outlook-makroindstillinger for at tillade signerede makroer.
  3. Til sidst kan du genstarte din Outlook for at aktivere det nye VBA-projekt.
  4. Siden da vil makroen starte og automatisk fjerne det aflyste møde fra kalenderen, hver gang der kommer en mødeaflysning i din indbakke.

Brug fuldt ud værktøjet til reparation af indbakken

Mange Outlook-brugere kan have været plaget af forskellige problemer i deres Outlook, herunder små funktionsfejl, fejlmeddelelser og pludselig ikke reagerer samt alvorlige skader osv. For at være ærlig har Outlook for de små problemer et indbygget reparationsværktøj - scanpst, som nemt kan ordne dem. Når du støder på problemer i Outlook, kan du bruge det til at tage et skud. Hvis det mislykkes, kan du fortsætte med at tage hjælp af et erfaren og bemærkelsesværdigt tredjepartsværktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.