Outlook: Hoe dubbele agenda-items verwijderen
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".
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.
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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
