Note: The other languages of the website are Google-translated. Back to English

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 tutorial 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

Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle, hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2010-2019 og 365. Fuld funktioner 60-dages gratis prøveperiode.

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.

doc fjern dublerede kalenderelementer 1

Nu er kalenderen blevet set som en liste.

doc fjern dublerede kalenderelementer 1

doc fjern dublerede kalenderelementer 1

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

doc fjern dublerede kalenderelementer 1

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.

doc fjern dublerede kalenderelementer 1


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.

doc fjern dublerede kalenderelementer 1

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 doc fjern dublerede kalenderelementer 1 .

doc fjern dublerede kalenderelementer 1

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.

doc fjern dublerede kalenderelementer 1

doc fjern dublerede kalenderelementer 1

Bemærk: Ovenfor VBA fungerer i kalendermappen inkluderer undermappe.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0  Tegn
Foreslåede steder