So führen Sie Elemente aus mehreren Ordnern ohne Duplikate in Outlook schnell zusammen

Wenn Sie alle Elemente aus mehreren Outlook-Ordnern zusammenführen und kein Duplikat sicherstellen möchten, können Sie die in diesem Artikel beschriebene Methode verwenden. Es verwendet VBA-Code, um dies wie einen Korken zu erreichen.

Manchmal möchten Sie möglicherweise Elemente aus mehreren Outlook-Ordnern zusammenführen, z. B. alle Kontakte mehrerer Outlook-Kontaktordner zusammenführen. In dieser Situation müssen Sie hoffen, dass die doppelten Kontakte beim Zusammenführen automatisch entfernt werden können, wenn sich zwischen diesen Ordnern doppelte Kontakte befinden. Unter diesen Umständen können Sie den folgenden VBA-Code verwenden, um ihn mühelos zu realisieren.

Elemente aus mehreren Ordnern ohne Duplikate zusammenführen

1. Zu starStarten Sie mit mit Ihre Outlook-Anwendung.
2. Anschließend sollten Sie auf den Outlook VBA-Editor zugreifen, indem Sie im Outlook-Hauptbildschirm die Taste „Alt + F11“ drücken.
3. Als Nächstes müssen Sie im Fenster "Microsoft Visual Basic für Applikationen" ein Modul öffnen, das nicht verwendet wird.
4. Danach sollten Sie den folgenden VBA-Code in dieses Modul kopieren.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Später müssen Sie Ihre Outlook-Makroeinstellungen überprüfen, um sicherzustellen, dass das Makro aktiviert ist.
6. Endlich können Sie es versuchen.

• Zunächst zurück zum neuen Modulfenster.
• Drücken Sie anschließend die Taste F5, um dieses Makro auszulösen.
• Dann müssen Sie die beiden Ordner auswählen, die zusammengeführt werden sollen. Der erste ist der Quell-und der zweite ist der tarhol eins.
• Danach verschiebt Outlook alle Elemente aus dem Quellordner in den tarhol eins. In der Zwischenzeit werden Duplikate automatisch entfernt.
• Letztendlich erhalten Sie möglicherweise eine Meldung, in der die Anzahl der entfernten Duplikate angezeigt wird, wie im folgenden Screenshot dargestellt:

Winzige Fehler können zu großen Abstürzen führen

Trotz zahlreicher hervorragender Funktionen ist Outlook immer noch anfällig für Fehler und Beschädigungen. Möglicherweise sind verschiedene Outlook-Probleme aufgetreten. Viele Benutzer neigen dazu, die zufälligen Fehler zu ignorieren. Es ist jedoch der winzige Fehler, der schwerwiegende Outlook-Abstürze auslöst, die die Outlook-Datei gefährden. Daher sollten Sie keine kleinen Fehler außer Acht lassen. Stattdessen sollten Sie sie so schnell wie möglich entfernen. Außerdem solltest du besser eine Wohnung behalten PST-Reparatur Werkzeug, wie z DataNumen Outlook Repair. Durch seine hohe Wiederherstellungsrate hat sich dieses Dienstprogramm gegenüber seinen Mitbewerbern durchgesetzt.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX