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
3 Klicken Tools > Bibliographie und überprüfen Sie im Popping-Dialogfeld Microsoft Scripting-Laufzeit Kontrollkästchen.
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).
5 Klicken OKWählen Sie im zweiten Dialogfeld den zweiten Ordner aus, den Sie vergleichen und zusammenführen möchten.
6 Klicken OKJetzt werden alle Elemente im ersten Ordner in den zweiten Ordner verschoben, und die doppelten werden ebenfalls entfernt.
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. |
||
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.
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.
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.