Outlook: dubbele agenda-items verwijderen

Soms zijn er dubbele agenda-items wanneer we gebeurtenissen van andere apparaten importeren. Om de dubbele agenda-items te verwijderen, introduceert deze zelfstudie twee verschillende methoden: de ene verwijdert één voor één wanneer de duplicaten minder zijn, een andere gebruikt VBA om alle duplicaten tegelijk te verwijderen.

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

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

Office-tabblad - Schakel bewerken en bladeren met tabbladen in Microsoft Office in, waardoor werken een fluitje van een cent wordt

Lees verder...Download ...

Kutools voor Outlook - Geef Outlook een boost met meer dan 100 geavanceerde functies voor superieure efficiëntie

Automatiseer e-mailen met Auto CC / BCC, Automatisch doorsturen door regels; versturen Auto antwoord (Out of Office) zonder dat er een uitwisselingsserver nodig is...
Ontvang herinneringen zoals BCC-waarschuwing bij het beantwoorden van iedereen terwijl u in de BCC-lijst staat, en Herinner bij ontbrekende bijlagen voor vergeten bijlagen...
Verbeter de e-mailefficiëntie met Antwoord (allemaal) met bijlagen, Automatisch begroeting of datum en tijd toevoegen aan handtekening of onderwerp, Beantwoord meerdere e-mails...
Stroomlijn e-mailen met E-mails intrekken, Hulpmiddelen voor bijlagen (Alles comprimeren, Alles automatisch opslaan...), Verwijder duplicaten en Quick Report...

Geef uw Outlook 2021 - 2010 of Outlook 365 een boost met deze geavanceerde functies. Geniet van een uitgebreide gratis proefperiode van 60 dagen en verbeter uw e-mailervaring!

Lees verder...Download ...

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

Als u dubbele agenda-items één voor één wilt verwijderen, moet u ze eerst in een specifieke volgorde weergeven om de dubbele items duidelijk te kunnen zien, en ze vervolgens één voor één verwijderen.

1. Over het algemeen staat de kalender in a Agenda bekijk, activeer de agenda waarvan u de dubbele wilt verwijderen en klik vervolgens op Bekijk > Verander perspectief > Lijst.

Nu is de kalender als een lijst bekeken.

2. Geef vervolgens een voorwaarde op die u gebruikt om te vergelijken als de items duplicaat zijn, in de veronderstelling dat u wilt vergelijken als de items hetzelfde onderwerp hebben. Klik ONDERWERP in de kalenderlijst, dan worden alle items met hetzelfde onderwerp bij elkaar geplaatst.

3. Nu kunt u de items die hetzelfde onderwerp hebben één voor één verwijderen door met de rechtermuisknop op het item te klikken en te klikken op Verwijder uit het snel verschijnende contextmenu.

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

Hier wordt enige VBA geïntroduceerd die in verschillende gevallen alle dubbele agenda-items in een agendamap kan verwijderen.

1. druk op anders + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

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

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

'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

In deze VBA verwijdert het alle duplicaten in "gegevens” deze categorie door het onderwerp, de locatie, het lichaam en de categorie te vergelijken, kunt u ze naar behoefte wijzigen.

3. druk dan op F5 toets of klik op Uitvoeren om de code uit te voeren, een dialoogvenster Macro's springt eruit, kies VerwijderDuplicateCalendar en klik op lopen .

Dan zijn de dubbele items in de categorie "datum" verwijderd.

VBA: verwijder alle dubbele agenda-items in categorieën

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

Voer deze code uit, alle duplicaten die betrekking hebben op hetzelfde onderwerp, locatie, hoofdtekst, categorie in elke categorie zijn verwijderd.