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.
Verabschieden Sie sich von der Unproduktivität in Outlook! Kutools für Outlook macht die Verarbeitung von E-Mails im Batch einfacher – jetzt mit kostenlosen KI-gestützten Funktionen! Laden Sie Kutools für Outlook jetzt 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 veröffentlicht kostenlose Version!
Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...
📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...
📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...
👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar
Dringend empfohlen: Kutools für Office (5-in-1)
Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!
- ✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
- 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
- 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint