Cum se îmbină două foldere fără duplicate într-un singur folder în Outlook?

În Outlook, este posibil să aveți multe conturi de e-mail cu mai multe foldere, în unele cazuri, doriți să îmbinați două foldere într-unul și să eliminați elementele duplicate. Cum poți rezolva rapid acest loc de muncă? În acest articol, introduc un cod VBA pentru a vă ajuta să îl gestionați cât mai repede posibil în Outlook.

Îmbinați două foldere fără duplicate într-unul prin codul VBA

Îmbinați mai multe foldere și eliminați elementele duplicate cu Kutools pentru Outlook

Îmbinați două foldere fără duplicate într-unul prin codul VBA

Pentru a îmbina două foldere într-unul singur și a elimina elementele duplicate, îl puteți gestiona cu codul VBA după următorii pași:

1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră

2. Faceți dublu clic pe Această sesiune Outlook din Project1 în panoul din stânga, apoi copiați și lipiți codul de mai jos în scriptul din dreapta.

VBA: îmbinați două foldere fără duplicate

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

dosare de îmbinare doc fără duplicate 1

3. clic Instrumente > Referinte și în caseta de dialog popping, verificați Runtime Microsoft Scripting caseta.

4. clic OK. Acum apăsați F5 tasta pentru a rula codul. Va apărea o casetă de dialog pentru a vă reaminti să selectați primul folder pe care doriți să îl îmbinați (notă: toate elementele din primul folder vor fi eliminate după îmbinarea cu al doilea folder).
dosare de îmbinare doc fără duplicate 4

5. clic OK, în al doilea dialog popping, alegeți al doilea folder cu care doriți să comparați și să fuzionați.
dosare de îmbinare doc fără duplicate 5

6. clic OK, acum, toate elementele din primul folder vor fi mutate în al doilea folder, iar cele duplicate sunt, de asemenea, eliminate.
dosare de îmbinare doc fără duplicate 6

Îmbinați mai multe foldere și eliminați elementele duplicate cu Kutools pentru Outlook

Dacă nu sunteți familiarizați cu codul VBA, încercați să utilizați Kutools pentru Outlook, un supliment la îndemână, cu Consolidarea dosarelor și E-mailuri duplicate utilitare care se pot descurca cu ușurință și rapid la acest job.

Kutools for Outlook , Include 100+ funcții și instrumente puternice pentru Microsoft Outlook 2016, 2013, 2010 și Office 365.
Accesați Descărcare Încercare gratuită 45 de zile

Instalare gratuită Kutools pentru Outlook, apoi faceți pașii de mai jos:

Îmbinați mai multe foldere

1. clic Kutools Plus > Consolidarea dosarelor, apoi în Îmbinați mai multe foldere într-unul singur dialog, faceți clic pe Adăuga pentru a adăuga folderele în listă care vor fi îmbinate, alegeți un folder ca folder de destinație.

2. clic OK > OK. Acum, toate elementele din folderele selectate au fost îmbinate într-un folder specific.
doc consolidează și elimină duplicatul 2

Eliminați elementele duplicate

3. clic Kutools > Ștergeți duplicatul > E-mailuri duplicate. Apoi în Mesaje duplicate , verificați folderul pe care doriți să îl eliminați.

4. clic Pagina Următoare →, În Setări pentru mesaje duplicate , specificați criteriile pe care le utilizați pentru a compara e-mailurile, apoi verificați Ștergeți mesajele duplicat și selectați Comparați pentru mesajele duplicate dintr-un singur folder.

5. clic Pagina Următoare → > Pagina Următoare →, e-mailurile duplicate au fost filtrate. Clic Ștergeți mesajul duplicat buton> OK pentru a elimina e-mailurile duplicate cu succes.
dosare de îmbinare doc fără duplicate 6