Outlook: Hoe dubbele agenda-items verwijderen

Author Sun Last modified 2025-08-26

Soms zijn er dubbele agenda-items wanneer we afspraken importeren van andere apparaten. Om de dubbele agenda-items te verwijderen, introduceert deze handleiding twee verschillende methoden: één is het verwijderen van items één voor één wanneer er weinig duplicaten zijn, en de andere is het gebruik van VBA om alle duplicaten tegelijk te verwijderen.

Handmatig dubbele agenda-items één voor één verwijderen

VBA gebruiken om dubbele agenda-items in één keer te verwijderen

Handmatig dubbele agenda-items één voor één verwijderen

Om dubbele agenda-items één voor één te verwijderen, moet je ze eerst in een specifieke volgorde weergeven om de duplicaten duidelijk te kunnen zien, en vervolgens verwijder je ze één voor één.

1. Over het algemeen staat de agenda in een "Agenda"-weergave. Activeer de agenda waaruit je de duplicaten wilt verwijderen, klik dan op "Weergave" > "Weergave wijzigen" > "Lijst".

steps on manually removing duplicates calendar items one by one

Nu wordt de agenda als een lijst weergegeven.

2. Specificeer vervolgens een voorwaarde die je gebruikt om te vergelijken of de items dubbel zijn, bijvoorbeeld door te controleren of de items hetzelfde onderwerp hebben. Klik op "ONDERWERP" in de agendalijst, dan worden alle items met hetzelfde onderwerp bij elkaar geplaatst.

3. Nu kun je de items met hetzelfde onderwerp één voor één verwijderen door met de rechtermuisknop op het item te klikken en "Verwijderen" te selecteren in het contextmenu dat verschijnt.

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.

Deze functie ondersteunt:

Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

Slimme e-mailreacties
Geoptimaliseerde inhoud
Op trefwoorden gebaseerde concepten
Intelligente inhoudsuitbreiding
E-mailsamenvatting
Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

VBA gebruiken om dubbele agenda-items in één keer te verwijderen

Hier wordt wat VBA-code geïntroduceerd die alle dubbele agenda-items in een agenda-map kan verwijderen in verschillende gevallen.

1. Druk op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module" om een nieuwe lege module te maken, kopieer en plak vervolgens de onderstaande code in de module.

VBA: alle dubbele agenda-items in één specifieke categorie verwijderen

'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

Met deze VBA-code worden alle duplicaten in de categorie "datum" verwijderd door onderwerp, locatie, berichttekst en categorie te vergelijken. Je kunt deze naar behoefte aanpassen.

steps on using VBA to remove duplicates calendar items at once time

3. Druk vervolgens op "F5" of klik op Uitvoeren om de code uit te voeren. Er verschijnt een dialoogvenster "Macro's", selecteer "RemoveDuplicateCalendar" en klik op "Uitvoeren". .

De dubbele items in de categorie "datum" zijn nu verwijderd.

VBA: alle dubbele agenda-items in meerdere categorieën verwijderen

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

Wanneer je deze code uitvoert, worden alle duplicaten die hetzelfde onderwerp, dezelfde locatie, dezelfde berichttekst en dezelfde categorie hebben, in elke categorie verwijderd.

Opmerking: Bovenstaande VBA werkt in een agenda-map inclusief submappen.

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite