Jak szybko scalać elementy z wielu folderów bez duplikatów w Outlooku

Jeśli chcesz scalić wszystkie elementy z wielu folderów programu Outlook i zapewnić brak duplikatów, możesz skorzystać z metody przedstawionej w tym artykule. Używa kodu VBA, aby pomóc Ci to zrobić jak korek.

Czasami możesz chcieć scalić elementy z kilku folderów programu Outlook, na przykład scalić wszystkie kontakty z kilku folderów kontaktów programu Outlook. W tej sytuacji, jeśli wśród tych folderów znajdują się zduplikowane kontakty, musisz mieć nadzieję, że duplikaty zostaną automatycznie usunięte podczas scalania. W tej sytuacji możesz skorzystać z następującego kodu VBA, aby zrealizować to z łatwością.

Scal elementy z wielu folderów bez duplikatów

1. Do S.tarUruchom aplikację Outlook.
2. Następnie powinieneś uzyskać dostęp do edytora Outlook VBA, naciskając przycisk „Alt + F11” na głównym ekranie Outlooka.
3. Następnie w oknie „Microsoft Visual Basic for Applications” należy otworzyć nieużywany moduł.
4. Następnie należy skopiować następujący kod VBA do tego modułu.

'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. Później musisz sprawdzić ustawienia makr programu Outlook, upewniając się, że makro jest włączone.
6. Wreszcie możesz spróbować.

• Najpierw wróć do nowego okna modułu.
• Następnie naciśnij przycisk klawisza F5, aby uruchomić to makro.
• Następnie musisz wybrać dwa foldery do połączenia. Pierwszy to źródłowy, a drugi to tzw tardostać jeden.
• Następnie program Outlook zacznie przenosić wszystkie elementy z folderu źródłowego do tardostać jeden. W międzyczasie duplikaty będą automatycznie usuwane.
• Ostatecznie możesz otrzymać wiadomość z prośbą o liczbę usuniętych duplikatów, jak na poniższym zrzucie ekranu:

Drobne błędy mogą prowadzić do poważnych awarii

Pomimo wielu doskonałych funkcji Outlook jest nadal podatny na błędy i uszkodzenia. Być może napotkałeś różne problemy z programem Outlook. Wielu użytkowników jest skłonnych ignorować przypadkowe błędy. Jednak to mały błąd powoduje poważne awarie programu Outlook, które zagrażają plikowi programu Outlook. Dlatego nie należy lekceważyć żadnych drobnych błędów. Zamiast tego należy je jak najszybciej wyeliminować. Ponadto lepiej zachować apt Naprawa PST narzędzie, takie jak DataNumen Outlook Repair. Dzięki wysokiemu wskaźnikowi odzysku narzędzie to przewyższa swoich rówieśników.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com