Hvordan flettes to mapper uden dubletter i en mappe i Outlook?

I Outlook har du muligvis mange e-mail-konti med mange mapper, i nogle tilfælde vil du flette to mapper til en og fjerne de duplikerede emner. Hvordan kan du hurtigt løse dette job? I denne artikel introducerer jeg en VBA-kode, der hjælper dig med at håndtere den så hurtigt som muligt i Outlook.

Flet to mapper uden dubletter til en efter VBA-kode

Flet flere mapper og fjern duplikatemner med Kutools til Outlook

Flet to mapper uden dubletter til en efter VBA-kode

Hvis du vil flette to mapper til en og fjerne de duplikerede emner, kan du håndtere det med VBA-kode som følger:

1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue

2. Dobbeltklik på Denne OutlookSession fra Project1 i venstre rude, kopier og indsæt derefter nedenstående kode til det højre script.

VBA: Flet to mapper uden duplikater

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 flette mapper uden dubletter 1

3. klik Værktøjer > Referencer og i poppedialogen skal du kontrollere Microsoft Scripting Runtime afkrydsningsfelt.

4. klik OK. Tryk nu på F5 nøgle for at køre koden. En dialog vises for at minde dig om at vælge den første mappe, du vil flette (bemærk: alle elementerne i den første mappe fjernes, efter at de er slået sammen med den anden mappe).
doc flette mapper uden dubletter 4

5. klik OK, i den anden poppedialog, skal du vælge den anden mappe, du vil sammenligne og flette med.
doc flette mapper uden dubletter 5

6. klik OK, nu flyttes alle elementerne i den første mappe til den anden mappe, og de duplikerede fjernes også.
doc flette mapper uden dubletter 6

Flet flere mapper og fjern duplikatemner med Kutools til Outlook

Hvis du ikke er bekendt med VBA-kode, så prøv at bruge Kutools til Outlook, et praktisk tilføjelsesprogram med dets Konsolidering af mapper , Kopier e-mails værktøjer, der nemt og hurtigt kan håndtere dette job.

Kutools for Outlook , Indeholder 100 + kraftfulde funktioner og værktøjer til Microsoft Outlook 2016, 2013, 2010 og Office 365.
Gå til Download Gratis prøveperiode 45 dage

Gratis installation Kutools til Outlook, og gør derefter som nedenstående trin:

Flet flere mapper

1. klik Kutools Plus > Konsolidering af mapper, så i Flet flere mapper i en dialog, klik Tilføj for at tilføje mapperne til listen, som skal flettes, skal du vælge en mappe som destinationsmappe.

2. klik OK > OK. Nu er alle elementerne i de valgte mapper blevet flettet i en bestemt mappe.
doc konsoliderer og fjern duplikat 2

Fjern duplikatemner

3. klik Kutools > Slet duplikat > Kopier e-mails. Derefter i Kopier meddelelser dialog, skal du kontrollere den mappe, du vil fjerne dubletter.

4. klik Næstei Duplikerede meddelelsesindstillinger dialog, skal du angive de kriterier, du bruger til at sammenligne e-mails, og derefter kontrollere Slet duplikatbeskeder valg og vælg Sammenlign for duplikerede meddelelser i en enkelt mappe.

5. klik Næste > Næsteer de duplikerede e-mails blevet filtreret. Klik på Slet duplikatbesked knap> OK for at fjerne de duplikerede e-mails med succes.
doc flette mapper uden dubletter 6