Hoppa till huvudinnehåll

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.

doc sammanfoga mappar utan dubbletter 2 doc pil till höger doc sammanfoga mappar utan dubbletter 3

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.

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.
doc konsolidera och ta bort duplikat 1

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.
doc konsolidera och ta bort duplikat 3

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.
doc konsolidera och ta bort duplikat 4

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 konsolidera och ta bort duplikat 5 doc sammanfoga mappar utan dubbletter 6


Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations