Jak scalić dwa foldery bez duplikatów w jeden folder w Outlooku?

W programie Outlook możesz mieć wiele kont e-mail z wieloma folderami, w niektórych przypadkach chcesz scalić dwa foldery w jeden i usunąć zduplikowane elementy. Jak możesz szybko rozwiązać tę pracę? W tym artykule przedstawiam kod VBA, który pomoże Ci jak najszybciej obsłużyć go w Outlooku.

Połącz dwa foldery bez duplikatów w jeden według kodu VBA

Scal wiele folderów i usuń zduplikowane elementy za pomocą Kutools for Outlook

Połącz dwa foldery bez duplikatów w jeden według kodu VBA

Aby połączyć dwa foldery w jeden i usunąć zduplikowane elementy, możesz obsłużyć to za pomocą kodu VBA w następujący sposób:

1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno

2. Kliknij dwukrotnie Ta sesja programu Outlook od Project1 w lewym okienku, a następnie skopiuj i wklej poniższy kod do prawego skryptu.

VBA: Scal dwa foldery bez dyplomów

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

Scalanie folderów doc bez duplikatów 1

3. kliknij Tools > Referencje aw wyświetlanym oknie dialogowym zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft checkbox.

4. kliknij OK. Teraz naciśnij F5 klucz do uruchomienia kodu. Pojawi się okno dialogowe przypominające o wybraniu pierwszego folderu, który chcesz scalić (uwaga: wszystkie elementy w pierwszym folderze zostaną usunięte po scaleniu z drugim folderem).
Scalanie folderów doc bez duplikatów 4

5. kliknij OK, w drugim wyświetlanym oknie dialogowym wybierz drugi folder, który chcesz porównać i scalić.
Scalanie folderów doc bez duplikatów 5

6. kliknij OK, teraz wszystkie elementy z pierwszego folderu zostaną przeniesione do drugiego folderu, a duplikaty również zostaną usunięte.
Scalanie folderów doc bez duplikatów 6

Scal wiele folderów i usuń zduplikowane elementy za pomocą Kutools for Outlook

Jeśli nie znasz kodu VBA, spróbuj użyć Kutools dla programu Outlook, poręczny dodatek z jego Konsolidacja folderów i Zduplikowane e-maile narzędzia, które łatwo i szybko poradzą sobie z tym zadaniem.

Kutools for Outlook , zawiera 100 + zaawansowane funkcje i narzędzia dla Microsoft Outlook 2016, 2013, 2010 i Office 365.
Przejdź do pobierania Bezpłatna wersja próbna 45 dni

Darmowa instalacja Kutools dla programu Outlook, a następnie wykonaj poniższe czynności:

Scal wiele folderów

1. kliknij Kutools Plus > Konsolidacja folderów, a następnie w Scal wiele folderów w jeden dialog, kliknij Dodaj aby dodać foldery do listy, która zostanie scalona, wybierz folder jako folder docelowy.

2. kliknij OK > OK. Teraz wszystkie elementy w wybranych folderach zostały scalone w jeden określony folder.
doc skonsoliduj i usuń duplikat 2

Usuń zduplikowane elementy

3. kliknij Kutools > Usuń duplikat > Zduplikowane e-maile. Następnie w Zduplikowane wiadomości zaznacz folder, z którego chcesz usunąć duplikaty.

4. kliknij Następnaw Ustawienia zduplikowanych wiadomości określ kryteria, których używasz do porównywania wiadomości e-mail, a następnie zaznacz je Usuń zduplikowane wiadomości opcję i wybierz Porównaj zduplikowane wiadomości w jednym folderze.

5. kliknij Następna > Następna, zduplikowane e-maile zostały odfiltrowane. Kliknij Usuń zduplikowaną wiadomość przycisk> OK aby pomyślnie usunąć zduplikowane e-maile.
Scalanie folderów doc bez duplikatów 6