Outlook: Sådan fjerner du dublerede kalenderelementer

Nogle gange er der nogle dublerede kalenderelementer, når vi importerer begivenheder fra andre enheder. For at fjerne de duplikerede kalenderelementer introducerer denne vejledning to forskellige metoder, en fjerner én efter én, når dubletterne er færre, en anden bruger VBA til at fjerne alle dubletter på én gang.

Fjern manuelt dubletter af kalenderelementer én efter én

VBA for at fjerne dubletter af kalenderelementer på én gang

Office-faneblad - Aktiver fanebaseret redigering og browsing i Microsoft Office, hvilket gør arbejdet til en leg

Læs mere ...Hent ...

Kutools til Outlook - Boost Outlook med 100+ avancerede funktioner for overlegen effektivitet

Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...

Boost din Outlook 2021 - 2010 eller Outlook 365 med disse avancerede funktioner. Nyd en omfattende 60-dages gratis prøveperiode og løft din e-mail-oplevelse!

Læs mere ...Hent ...

Fjern manuelt dubletter af kalenderelementer én efter én

For at fjerne dubletter af kalenderelementer én efter én, skal du angive dem i en bestemt rækkefølge for at se dubletterne tydeligt først og derefter fjerne dem én efter én.

1. Generelt er kalenderen i en Kalender se, aktiver den kalender, du vil fjerne dubletter, og klik derefter Specifikation > Skift visning > Liste.

Nu er kalenderen blevet set som en liste.

2. Angiv derefter en betingelse, som du bruger til at sammenligne, hvis varerne er dublerede, formodentlig at sammenligne, hvis varerne har samme emne. Klik EMNE i kalenderlisten, så er alle emner med samme emne placeret sammen.

3. Nu kan du fjerne de emner, der har samme emne en efter en ved at højreklikke på emnet og klikke Slette fra den åbne kontekstmenu.

VBA for at fjerne dubletter af kalenderelementer på én gang

Her introduceres nogle VBA, som kan fjerne alle duplikerede kalenderelementer i en kalendermappe i forskellige tilfælde.

1. Trykke andre + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler for at oprette et nyt tomt modul, kopier og indsæt derefter nedenstående kode til modulet.

VBA: fjern alle duplikerede kalenderelementer i en bestemt kategori

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

I denne VBA vil den fjerne alle dubletter i "dato” denne kategori ved at sammenligne emne, placering, krop og kategori, kan du ændre dem efter behov.

3. tryk derefter på F5 eller klik på Kør for at køre koden, en dialogboks Makroer springer ud, vælg FjernDuplicateCalendar og klik Kør .

Så er de dubletter i kategorien "dato" blevet fjernet.

VBA: fjern alle duplikerede kalenderelementer på tværs af kategorier

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Kør denne kode, alle dubletter, der er på samme emne, placering, krop, kategori i hver kategori, er blevet fjernet.