Wie kann man zwei Ordner ohne Duplikate in einem Outlook-Ordner zusammenführen?
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
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).
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“. Nun werden alle Elemente des ersten Ordners in den zweiten Ordner verschoben, und die doppelten werden entfernt.
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.
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.
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...

