Jak sloučit dvě složky bez duplikátů do jedné složky v aplikaci Outlook?

Autor: Sun Naposledy změněno: 2020-10-29

V aplikaci Outlook můžete mít mnoho e-mailových účtů s mnoha složkami, v některých případech chcete sloučit dvě složky do jedné a odstranit duplicitní položky. Jak můžete tuto práci rychle vyřešit? V tomto článku představuji kód VBA, který vám pomůže s jeho co nejrychlejším zpracováním v Outlooku.

Sloučte dvě složky bez duplikátů do jedné pomocí kódu VBA

Sloučit více složek a odstranit duplicitní položky pomocí Kutools pro Outlook

Sloučte dvě složky bez duplikátů do jedné pomocí kódu VBA

Chcete-li sloučit dvě složky do jedné a odstranit duplicitní položky, můžete to zpracovat pomocí kódu VBA následujícím způsobem:

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno

2. Poklepejte na ThisOutlookSession od Project1 v levém podokně a poté zkopírujte a vložte pod kód do pravého skriptu.

VBA: Sloučení dvou složek bez duplikátů

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

Sloučit složky dokumentů bez duplikátů 1

3. cvaknutí Tools > Reference a v rozbalovacím dialogu zaškrtněte Microsoft Scripting Runtime checkbox.

Sloučit složky dokumentů bez duplikátů 2

Sloučit složky dokumentů bez duplikátů 3

4. cvaknutí OK. Nyní stiskněte F5 klíč ke spuštění kódu. Zobrazí se dialogové okno, které vám připomene, že jste vybrali první složku, kterou chcete sloučit (poznámka: všechny položky v první složce budou po sloučení s druhou složkou odstraněny).
Sloučit složky dokumentů bez duplikátů 4

5. cvaknutí OKve druhém vyskakovacím dialogovém okně vyberte druhou složku, kterou chcete porovnat a sloučit.
Sloučit složky dokumentů bez duplikátů 5

6. cvaknutí OK, nyní budou všechny položky v první složce přesunuty do druhé složky a budou odstraněny také duplikáty.
Sloučit složky dokumentů bez duplikátů 6

Sloučit více složek a odstranit duplicitní položky pomocí Kutools pro Outlook

Pokud nejste obeznámeni s kódem VBA, zkuste použít Kutools pro aplikaci Outlook, šikovný doplněk, s jeho Konsolidace složek a Duplicitní e-maily nástroje, které tuto práci snadno a rychle zvládnou.

Kutools for Outlook , Obsahuje 100+ výkonné funkce a nástroje pro Microsoft Outlook 2016, 2013, 2010 a Office 365.
Přejít na Stáhnout Zkušební verze zdarma 45 dní

Bezplatná instalace Kutools pro Outlook a proveďte následující kroky:

Sloučit více složek

1. cvaknutí Kutools Plus > Konsolidace složek, pak v Sloučit více složek do jedné dialog, klepněte na tlačítko přidat Chcete-li přidat složky do seznamu, který bude sloučen, vyberte složku jako cílovou složku.

2. cvaknutí OK > OK. Nyní byly všechny položky ve vybraných složkách sloučeny do jedné konkrétní složky.
doc konsolidovat a odstranit duplikát 2

Odeberte duplicitní položky

3. cvaknutí Kutools > Odstranit duplikát > Duplicitní e-maily. Pak v Duplicitní zprávy V dialogovém okně zaškrtněte složku, ze které chcete odstranit duplikáty.

4. cvaknutí další, v Nastavení duplicitních zpráv v dialogovém okně zadejte kritéria, která používáte k porovnání e-mailů, a poté zkontrolujte Odstraňte duplicitní zprávy a zvolte Porovnejte duplicitní zprávy v jedné složce.

5. cvaknutí další > další, duplicitní e-maily byly filtrovány. Klepněte na Odstranit duplicitní zprávu tlačítko> OK úspěšně odstranit duplicitní e-maily.
Sloučit složky dokumentů bez duplikátů 6