Wie kann man zwei Ordner ohne Duplikate in einem Outlook-Ordner zusammenführen?

Author: Sun Last Modified: 2025-08-06

In Outlook können Sie viele E-Mail-Konten mit vielen Ordnern haben. In einigen Fällen möchten Sie möglicherweise zwei Ordner in einen zusammenführen und die doppelten Elemente entfernen. Wie können Sie diese Aufgabe schnell lösen? In diesem Artikel stelle ich einen VBA-Code vor, der Ihnen hilft, dies so schnell wie möglich in Outlook zu erledigen.

Zwei Ordner ohne Duplikate in einen durch VBA-Code zusammenführen

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

Zwei Ordner ohne Duplikate in einen durch VBA-Code zusammenführen

Um zwei Ordner in einen zu verschmelzen und die doppelten Elemente zu entfernen, können Sie dies mit VBA-Code durch folgende Schritte verwalten:

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

2. Doppelklicken Sie im linken Bereich auf „ThisOutlookSession“ von „Project1“, und kopieren Sie den folgenden Code in das rechte Skriptfenster.

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

doc merge folders without duplicates 1

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 nun die Taste „F5“, um den Code auszuführen. Ein Dialogfeld wird angezeigt, 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).
doc merge folders without duplicates 4

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

6. Klicken Sie auf „OK“. Nun werden alle Elemente des ersten Ordners in den zweiten Ordner verschoben, und die doppelten werden entfernt.
doc merge folders without duplicates 6

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

Wenn Sie mit VBA-Code nicht vertraut sind, probieren Sie „Kutools für Outlook“, ein praktisches Add-In, mit seinen Funktionen „Ordner organisieren“ und „Duplikate E-Mails“, das diese Aufgabe einfach und schnell erledigen kann.

Entfesseln Sie ultimative E-Mail-Effizienz mit Kutools für Outlook! Nutzen Sie 70 leistungsstarke Funktionen absolut kostenlos und für immer. Laden Sie jetzt die kostenlose Version herunter!

Mehrere Ordner zusammenführen

1. Klicken Sie auf „Kutools Plus“ > „Ordner organisieren“, dann klicken Sie im Dialogfeld „Mehrere Ordner in einen Ordner organisieren“ auf „Hinzufügen“, um die Ordner, die Sie zusammenführen möchten, zur Liste hinzuzufügen, und wählen Sie einen Ordner als Zielordner aus.

2. Klicken Sie auf „OK“ > „OK“. Nun wurden alle Elemente in den ausgewählten Ordnern in den angegebenen Ordner zusammengeführt.
doc consolidate and remove duplicate 2

Doppelte Elemente entfernen

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

4. Klicken Sie auf „Weiter“. Geben Sie im Dialogfeld „Einstellungen für doppelte Nachrichten“ die Kriterien an, die Sie zum Vergleichen von E-Mails verwenden werden. Aktivieren Sie dann die Option „Duplikate löschen“ und wählen Sie „Vergleichen innerhalb eines einzelnen Ordners“.

5. Klicken Sie auf „Weiter“ > „Weiter“, und die doppelten E-Mails werden gefiltert. Klicken Sie auf die Schaltfläche „Doppelte Nachrichten löschen“ > „OK“, um die doppelten E-Mails erfolgreich zu entfernen.
doc merge folders without duplicates 6