Hoe voegt u twee mappen samen in één map in Outlook, zonder duplicaten?

In Outlook beheert u mogelijk meerdere e-mailaccounts met talloze mappen. Soms wilt u twee mappen samenvoegen tot één map en dubbele items verwijderen. Hoe voert u deze taak snel uit? In dit artikel introduceer ik een VBA-code die u zo efficiënt mogelijk helpt bij het uitvoeren van deze taak in Outlook.

Twee mappen samenvoegen zonder duplicaten met VBA-code

Meerdere mappen samenvoegen en dubbele items verwijderen met Kutools voor Outlook

---

Twee mappen samenvoegen zonder duplicaten met VBA-code

Om twee mappen samen te voegen tot één map en dubbele items te verwijderen, kunt u de volgende stappen volgen met behulp van VBA-code:

1. Druk op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het linkerdeelvenster op "ThisOutlookSession" onder "Project1" en plak daarna 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 'Extra' > 'Referenties' en vink in het pop-updialoogvenster het selectievakje 'Microsoft Scripting Runtime' aan.

4. Klik op 'OK' en druk vervolgens op de toets F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de eerste map te selecteren die u wilt samenvoegen (opmerking: alle items in de eerste map worden verwijderd na samenvoeging met de tweede map).

5. Klik op 'OK'. Selecteer in het tweede pop-upvenster de tweede map waarmee u wilt vergelijken en samenvoegen.

6. Klik op 'OK'. Vervolgens worden alle items uit de eerste map verplaatst naar de tweede map en duplicaten automatisch verwijderd.

---

Meerdere mappen samenvoegen en dubbele items verwijderen met Kutools voor Outlook

Bent u niet thuis in VBA-code? Probeer dan de handige invoegtoepassing **Kutools voor Outlook**. Met de tools **Mappen organiseren** en **Dubbele e-mails** voert u deze taak snel en eenvoudig uit.

Meerdere mappen samenvoegen

1. Klik op "KUTOOLS PLUS" > „Mappen organiseren". Klik in het dialoogvenster "Meerdere mappen organiseren in één map" op „Toevoegen" om de mappen die u wilt samenvoegen aan de lijst toe te voegen, en kies vervolgens een doelmap.

2. Klik op "OK" > „OK". Alle items uit de geselecteerde mappen zijn nu samengevoegd in de opgegeven map.

Dubbele items verwijderen

3. Klik op "Kutools" > "Dubbele verwijderen" > „Dubbele e-mails". Vink in het dialoogvenster „Dubbele e-mails" vervolgens de map aan waarin u dubbele items wilt verwijderen.

4. Klik op 'Volgende'. Geef in het dialoogvenster 'Dubbele e-mails-instellingen' de criteria op waarmee u e-mails wilt vergelijken, vink vervolgens 'Dubbele e-mails verwijderen' aan en selecteer 'Vergelijken binnen één map'.

5. Klik op "Volgende" > „Volgende" om dubbele e-mails te filteren, en klik vervolgens op de knop "Dubbele berichten verwijderen" > „OK" om ze met succes te verwijderen.