Wie füge ich zwei Ordner ohne Duplikate in einem Ordner in Outlook zusammen?

In Outlook verfügen Sie möglicherweise über viele E-Mail-Konten mit vielen Ordnern. In einigen Fällen möchten Sie zwei Ordner zu einem zusammenführen und die doppelten Elemente entfernen. Wie können Sie diesen Job schnell lösen? In diesem Artikel stelle ich einen VBA-Code vor, mit dem Sie in Outlook so schnell wie möglich damit umgehen können.

Führen Sie zwei Ordner ohne Duplikate per VBA-Code zu einem zusammen

Führen Sie mehrere Ordner zusammen und entfernen Sie doppelte Elemente mit Kutools for Outlook

Führen Sie zwei Ordner ohne Duplikate per VBA-Code zu einem zusammen

Um zwei Ordner zu einem zusammenzuführen und die doppelten Elemente zu entfernen, können Sie wie folgt mit VBA-Code umgehen:

1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster

2. Doppelklicken Sie auf DieseOutlookSession für Project1 Kopieren Sie im linken Bereich den folgenden Code und fügen Sie ihn in das rechte Skript ein.

VBA: Führen Sie zwei Ordner ohne Diplomaten zusammen

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 Ordner ohne Duplikate zusammenführen 1

3 Klicken Tools > Bibliographie und überprüfen Sie im Popping-Dialogfeld Microsoft Scripting-Laufzeit Kontrollkästchen.

doc Ordner ohne Duplikate zusammenführen 2

doc Ordner ohne Duplikate zusammenführen 3

4 Klicken OK. Jetzt drücken F5 Schlüssel zum Ausführen des Codes. Ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, dass Sie den ersten Ordner ausgewählt haben, den Sie zusammenführen möchten (Hinweis: Alle Elemente im ersten Ordner werden nach dem Zusammenführen mit dem zweiten Ordner entfernt).
doc Ordner ohne Duplikate zusammenführen 4

5 Klicken OKWählen Sie im zweiten Dialogfeld den zweiten Ordner aus, den Sie vergleichen und zusammenführen möchten.
doc Ordner ohne Duplikate zusammenführen 5

6 Klicken OKJetzt werden alle Elemente im ersten Ordner in den zweiten Ordner verschoben, und die doppelten werden ebenfalls entfernt.
doc Ordner ohne Duplikate zusammenführen 6

Führen Sie mehrere Ordner zusammen und entfernen Sie doppelte Elemente mit Kutools for Outlook

Wenn Sie mit VBA-Code nicht vertraut sind, versuchen Sie ihn zu verwenden Kutools for Outlook, ein praktisches Add-In mit seiner Ordner konsolidieren und Doppelte E-Mails Dienstprogramme, die diesen Job einfach und schnell erledigen können.

Kutools for Outlook , Enthält 100+ Leistungsstarke Funktionen und Tools für Microsoft Outlook 2016, 2013, 2010 und Office 365.
Gehe zu Download Kostenlose Testversion 45 Tage

Kostenlose Installation Kutools für Outlook, und führen Sie dann die folgenden Schritte aus:

Mehrere Ordner zusammenführen

1 Klicken Kutoolen Plus > Ordner konsolidierendann in der Führen Sie mehrere Ordner zu einem zusammen Dialog, klicken Sie auf Speichern Um die Ordner zur Liste hinzuzufügen, die zusammengeführt werden soll, wählen Sie einen Ordner als Zielordner.

2 Klicken OK > OK. Jetzt wurden alle Elemente in den ausgewählten Ordnern in einem bestimmten Ordner zusammengeführt.
doc Duplikat konsolidieren und entfernen 2

Entfernen Sie doppelte Elemente

3 Klicken Kutoolen > Duplikat löschen > Doppelte E-Mails. Dann in der Doppelte Nachrichten Überprüfen Sie im Dialogfeld den Ordner, in dem Sie Duplikate entfernen möchten.

4 Klicken Weiterin Einstellungen für doppelte Nachrichten Geben Sie im Dialogfeld die Kriterien an, nach denen Sie E-Mails vergleichen, und überprüfen Sie sie Löschen Sie doppelte Nachrichten Option und wählen Sie Vergleichen Sie doppelte Nachrichten in einem einzelnen Ordner.

5 Klicken Weiter > Weiterwurden die doppelten E-Mails gefiltert. Klicken Doppelte Nachricht löschen Schaltfläche> OK um die doppelten E-Mails erfolgreich zu entfernen.
doc Ordner ohne Duplikate zusammenführen 6