Hoe twee mappen zonder duplicaten in één map samenvoegen in Outlook?
In Outlook kunt u veel e-mailaccounts met veel mappen hebben. In sommige gevallen wilt u mogelijk twee mappen samenvoegen in één en de dubbele items verwijderen. Hoe kunt u deze taak snel oplossen? In dit artikel introduceer ik een VBA-code om u te helpen dit zo snel mogelijk in Outlook af te handelen.
Twee mappen zonder duplicaten in één samenvoegen met VBA-code
Meerdere mappen samenvoegen en dubbele items verwijderen met Kutools voor Outlook
Twee mappen zonder duplicaten in één samenvoegen met VBA-code
Om twee mappen in één te samenvoegen en de dubbele items te verwijderen, kunt u dit afhandelen met VBA-code door de volgende stappen te volgen:
1. Druk op "Alt + F11" om het venster "Microsoft Visual Basic for Applications" te openen.
2. Dubbelklik op "ThisOutlookSession" van "Project1" in het linkerpaneel, kopieer en plak vervolgens de onderstaande code in het scriptvenster aan de rechterkant.
VBA: Twee mappen samenvoegen zonder duplicaten
Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary 'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
Set xSourceItem = xSourceFolder.Items.Item(i)
xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
Set xTargetItem = xTargetFolder.Items.Item(i)
Select Case xTargetItem.Class
Case olMail
With xTargetItem
xStr = .Subject & .Body & .SentOn
End With
Case olAppointment
With xTargetItem
xStr = .Subject & .Start & .Duration & .Location & .Body
End With
Case olContact
With xTargetItem
xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
End With
Case olTask
With xTargetItem
xStr = .Subject & .StartDate & .DueDate & .Body
End With
End Select
If xDictionary.Exists(xStr) = True Then
xTargetItem.Delete
xCount = xCount + 1
Else
xDictionary.Add xStr, True
End If
Next i
If xCount <> 0 Then
MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
3. Klik op "Tools" > "References", en vink in het pop-upvenster het selectievakje "Microsoft Scripting Runtime" aan.
 |  |  |
4. Klik op "OK". Druk nu op de "F5"-toets om de code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt herinnerd de eerste map die u wilt samenvoegen te selecteren (opmerking: alle items in de eerste map worden na het samenvoegen met de tweede map verwijderd).
5. Klik op "OK". Selecteer in het tweede pop-upvenster de tweede map waarmee u wilt vergelijken en samenvoegen.
6. Klik op "OK". Nu worden alle items in de eerste map verplaatst naar de tweede map, en worden de dubbele verwijderd.
Meerdere mappen samenvoegen en dubbele items verwijderen met Kutools voor Outlook
Als u niet bekend bent met VBA-code, probeer dan "Kutools voor Outlook", een handige invoegtoepassing, met zijn "Mappen organiseren" en "Dubbele e-mails" hulpmiddelen, die deze taak gemakkelijk en snel kunnen afhandelen.
Ontgrendel de ultieme e-mail efficiëntie met Kutools voor Outlook! Ontvang 70 krachtige functies volledig gratis, voor altijd. Download nu de gratis versie!
Meerdere mappen samenvoegen
1. Klik op "Kutools Plus" > "Mappen organiseren", klik vervolgens in het dialoogvenster "Meerdere mappen organiseren in één map" op "Toevoegen" om de mappen die u wilt samenvoegen toe te voegen aan de lijst, en kies een map als doelmapper.
2. Klik op "OK" > "OK". Nu zijn alle items in de geselecteerde mappen samengevoegd in de opgegeven map.
Dubbele items verwijderen
3. Klik op "Kutools" > "Verwijderen Dubbele" > "Dubbele E-mails". Selecteer vervolgens in het dialoogvenster "Dubbele berichten" de map waar u duplicaten wilt verwijderen.
4. Klik op "Volgende". Specificeer in het dialoogvenster "Instellingen Dubbele Berichten" de criteria die u zult gebruiken om e-mails te vergelijken. Vink vervolgens de optie "Dubbele berichten verwijderen" aan en selecteer "Vergelijken binnen één map".
5. Klik op "Volgende" > "Volgende", en de dubbele e-mails worden gefilterd. Klik op de knop "Dubbele berichten verwijderen" > "OK" om de dubbele e-mails succesvol te verwijderen.
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 ...
