Ga naar hoofdinhoud

Hoe twee mappen zonder duplicaten samenvoegen tot één map in Outlook?

In Outlook hebt u mogelijk veel e-mailaccounts met veel mappen. In sommige gevallen wilt u twee mappen samenvoegen tot één en de dubbele items verwijderen. Hoe los je deze klus snel op? In dit artikel introduceer ik een VBA-code om u te helpen deze zo snel mogelijk in Outlook af te handelen.

Voeg twee mappen zonder duplicaten samen tot één door VBA-code

Voeg meerdere mappen samen en verwijder dubbele items met Kutools voor Outlook


Voeg twee mappen zonder duplicaten samen tot één door VBA-code

Om twee mappen samen te voegen tot één en de dubbele items te verwijderen, kunt u dit met VBA-code als volgt afhandelen:

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster

2. Dubbelklik op DezeOutlookSessie oppompen van Project1 in het linkerdeelvenster, kopieer en plak vervolgens onderstaande code in het rechterscript.

VBA: voeg twee mappen samen zonder diplicaten

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

doc-samenvoegmappen zonder duplicaten 1

3. klikken Tools > Referenties en vink in het popping-dialoogvenster aan Microsoft Scripting-runtime checkbox.

doc-samenvoegmappen zonder duplicaten 2 doc pijl naar rechts doc-samenvoegmappen zonder duplicaten 3

4. klikken OK. Druk nu op F5 sleutel om de code uit te voeren. Er verschijnt een dialoogvenster om u eraan te herinneren de eerste map te selecteren die u wilt samenvoegen (opmerking: alle items in de eerste map worden verwijderd na het samenvoegen met de tweede map).
doc-samenvoegmappen zonder duplicaten 4

5. klikken OK, kies in het tweede popping-dialoogvenster de tweede map die u wilt vergelijken en waarmee u wilt samenvoegen.
doc-samenvoegmappen zonder duplicaten 5

6. klikken OK, nu worden alle items in de eerste map naar de tweede map verplaatst en worden de dubbele items ook verwijderd.
doc-samenvoegmappen zonder duplicaten 6


Voeg meerdere mappen samen en verwijder dubbele items met Kutools voor Outlook

Als u niet bekend bent met VBA-code, probeer dan Kutools for Outlook, een handige invoegtoepassing, met zijn Mappen consolideren en Dubbele e-mails hulpprogramma's die deze taak gemakkelijk en snel kunnen uitvoeren.

Kutools for Outlook , Inclusief 100+ krachtige functies en tools voor Microsoft Outlook 2016, 2013, 2010 en Office 365.

Gratis installatie Kutools voor Outlook en voer de onderstaande stappen uit:

Voeg meerdere mappen samen

1. klikken Koetools Plus > Mappen consolideren, dan in de Voeg meerdere mappen samen tot één dialoogvenster, klik Toevoegen Om de mappen toe te voegen aan de lijst die zal worden samengevoegd, kiest u een map als de doelmap.
doc consolideren en duplicaat verwijderen 1

2. klikken OK > OK. Nu zijn alle items in de geselecteerde mappen samengevoegd in één specifieke map.
doc consolideren en duplicaat verwijderen 2

Verwijder dubbele items

3. klikken Kutools > Verwijder duplicaat > Dubbele e-mails. Dan in de Dubbele berichten dialoogvenster, vink de map aan waarvan u duplicaten wilt verwijderen.
doc consolideren en duplicaat verwijderen 3

4. klikken Volgendein Dubbele berichtinstellingen dialoogvenster, specificeer de criteria die u gebruikt om e-mails te vergelijken en vink vervolgens aan Verwijder dubbele berichten optie en selecteer Vergelijk voor dubbele berichten in een enkele map.
doc consolideren en duplicaat verwijderen 4

5. klikken Volgende > Volgende, de dubbele e-mails zijn gefilterd. Klik Verwijder dubbel bericht knop> OK om de dubbele e-mails met succes te verwijderen.
doc consolideren en duplicaat verwijderen 5 doc-samenvoegmappen zonder duplicaten 6


Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations