Wie führt man zwei Outlook-Ordner ohne Duplikate zu einem einzigen Ordner zusammen?

In Outlook verwalten Sie möglicherweise zahlreiche E-Mail-Konten mit vielen Ordnern. In manchen Fällen möchten Sie zwei Ordner zu einem einzigen zusammenführen und dabei doppelte Elemente automatisch entfernen. Wie erledigen Sie diese Aufgabe am schnellsten? In diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem Sie genau das in Outlook so effizient wie möglich umsetzen können.

Zusammenführen zweier Ordner ohne Duplikate mithilfe eines VBA-Codes

Mehrere Ordner zusammenführen und doppelte Elemente mit Kutools für Outlook entfernen

---

Zusammenführen zweier Ordner ohne Duplikate mithilfe eines VBA-Codes

Um zwei Ordner zu einem zusammenzuführen und doppelte Elemente zu entfernen, können Sie dies mithilfe eines VBA-Codes gemäß der folgenden Schritte durchführen:

1. Drücken Sie die Tastenkombination „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Doppelklicken Sie im linken Bereich unter „Projekt1“ auf „ThisOutlookSession“ und fügen Sie den folgenden Code in das Skriptfenster rechts ein.

VBA: Zwei Ordner ohne Duplikate zusammenführen

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. Klicken Sie auf „Extras“ > „Verweise“ und aktivieren Sie im erscheinenden Dialogfeld das Kontrollkästchen „Microsoft Scripting Runtime“.

4. Klicken Sie auf „OK“. Drücken Sie anschließend die Taste „F5“, um den Code auszuführen. Es erscheint ein Dialogfeld, das Sie auffordert, den ersten Ordner auszuwählen, den Sie zusammenführen möchten (Hinweis: Alle Elemente im ersten Ordner werden nach dem Zusammenführen mit dem zweiten Ordner entfernt).

5. Klicken Sie auf „OK“. Wählen Sie im zweiten Dialogfeld den zweiten Ordner aus, mit dem Sie vergleichen und zusammenführen möchten.

6. Klicken Sie auf „OK“. Anschließend werden alle Elemente aus dem ersten Ordner in den zweiten verschoben – dabei werden doppelte Elemente automatisch entfernt.

---

Mehrere Ordner zusammenführen und doppelte Elemente mit Kutools für Outlook entfernen

Wenn Sie sich mit VBA-Code nicht auskennen, greifen Sie stattdessen zu „Kutools für Outlook“ – einem praktischen Add-In, mit dem Sie diese Aufgabe dank der Funktionen „Ordner organisieren“ und „Duplikate in E-Mails“ einfach und schnell erledigen.

Mehrere Ordner zusammenführen

1. Klicken Sie auf „KUTOOLS PLUS“ > „Ordner organisieren“. Im Dialogfeld „Mehrere Ordner in einen Ordner organisieren“ fügen Sie die gewünschten Ordner per Klick auf „Hinzufügen“ zur Liste hinzu und wählen anschließend einen Zielordner aus.

2. Klicken Sie auf „OK“ > „OK“. Alle Elemente aus den ausgewählten Ordnern wurden erfolgreich in den angegebenen Ordner zusammengeführt.

Doppelte Elemente entfernen

3. Klicken Sie auf „Kutools“ > „Doppelte löschen“ > „Duplikate E-Mails“. Markieren Sie im Dialogfeld „Duplikate E-Mails“ den Ordner, aus dem Sie Duplikate entfernen möchten.

4. Klicken Sie auf „Weiter“. Geben Sie im Dialogfeld „Duplikate E-Mails Einstellungen“ die Kriterien an, nach denen E-Mails verglichen werden sollen, aktivieren Sie die Option „Duplikate löschen“ und wählen Sie „Vergleichen innerhalb eines einzelnen Ordners“ aus.

5. Klicken Sie auf „Weiter“ > „Weiter“. Die doppelten E-Mails werden gefiltert. Klicken Sie auf die Schaltfläche „Doppelte Nachricht löschen“ > „OK“, um die doppelten E-Mails erfolgreich zu entfernen.