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

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 browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2010-2019 en 365. Gratis proefperiode van 60 dagen met volledige functionaliteit.

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 Kalender bekijk, activeer de agenda waarvan u de dubbele wilt verwijderen en klik vervolgens op Bekijk > Verander perspectief > Lijst.

doc verwijder dubbele agenda-items 1

Nu is de kalender als een lijst bekeken.

doc verwijder dubbele agenda-items 1

doc verwijder dubbele agenda-items 1

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.

doc verwijder dubbele agenda-items 1

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 Delete uit het snel verschijnende contextmenu.

doc verwijder dubbele agenda-items 1


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.

doc verwijder dubbele agenda-items 1

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 doc verwijder dubbele agenda-items 1 .

doc verwijder dubbele agenda-items 1

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.

doc verwijder dubbele agenda-items 1

doc verwijder dubbele agenda-items 1

Opmerking:: Bovenstaande VBA werkt in agendamap inclusief submap.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Comments (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties