Hur slår man samman två mappar utan dubbletter till en mapp i Outlook?

I Outlook kan du ha många e-postkonton med många mappar, i vissa fall vill du slå samman två mappar i en och ta bort dubbletterna. Hur kan du snabbt lösa detta jobb? I den här artikeln introducerar jag en VBA-kod som hjälper dig att hantera den så snabbt som möjligt i Outlook.

Slå samman två mappar utan dubbletter till en med VBA-kod

Slå ihop flera mappar och ta bort dubbletter med Kutools för Outlook

Slå samman två mappar utan dubbletter till en med VBA-kod

För att slå samman två mappar i en och ta bort dubbletterna kan du hantera den med VBA-kod enligt följande steg:

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster

2. Dubbelklicka på ThisOutlookSession från Project1 i den vänstra rutan och kopiera sedan och klistra in under koden i det högra skriptet.

VBA: Slå samman två mappar utan duplikat

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

doc sammanfoga mappar utan dubbletter 1

3. klick verktyg > Referensprojekt och i poppdialogrutan, kontrollera Microsoft Scripting Runtime kryssrutan.

4. klick OK. Tryck nu på F5 för att köra koden. En dialogruta dyker upp för att påminna dig om att du väljer den första mappen du vill slå ihop (Obs: alla objekt i den första mappen kommer att tas bort efter att de slogs ihop med den andra mappen).
doc sammanfoga mappar utan dubbletter 4

5. klick OK, i den andra poppdialogen, välj den andra mappen du vill jämföra och slå ihop med.
doc sammanfoga mappar utan dubbletter 5

6. klick OK, nu kommer alla objekt i den första mappen att flyttas till den andra mappen och de dubbletterna tas också bort.
doc sammanfoga mappar utan dubbletter 6

Slå ihop flera mappar och ta bort dubbletter med Kutools för Outlook

Om du inte känner till VBA-koden, försök att använda Kutools för Outlook, ett praktiskt tillägg med dess Konsolidera mappar och Duplicera e-post verktyg som enkelt och snabbt kan hantera detta jobb.

Kutools for Outlook , Inkluderar 100+ kraftfulla funktioner och verktyg för Microsoft Outlook 2016, 2013, 2010 och Office 365.
Gå till Ladda ner Gratis provperiod 45 dagar

Gratis installation Kutools för Outlook och gör sedan nedanstående steg:

Sammanfoga flera mappar

1. klick Kutools Plus > Konsolidera mappar, sedan i Slå ihop flera mappar till en dialog, klicka Lägg till för att lägga till mapparna i listan som kommer att slås samman, välj en mapp som målmapp.

2. klick OK > OK. Nu har alla objekt i de valda mapparna slagits samman i en specifik mapp.
doc konsolidera och ta bort duplikat 2

Ta bort dubbletter

3. klick Kutools > Ta bort dubbletter > Duplicera e-post. Sedan i Duplicera meddelanden dialogrutan, kolla mappen du vill ta bort dubbletter.

4. klick Nästai Duplicera meddelandesinställningar dialogrutan, ange kriterierna du använder för att jämföra e-postmeddelanden och kontrollera sedan Ta bort dubbletter alternativ och välj Jämför för dubbla meddelanden i en enda mapp.

5. klick Nästa > Nästahar duplicerade e-postmeddelanden filtrerats. Klick Ta bort duplicerat meddelande knapp> OK för att ta bort duplicerade e-postmeddelanden framgångsrikt.
doc sammanfoga mappar utan dubbletter 6