Hoe twee mappen zonder duplicaten samenvoegen tot één map in Outlook?
In Outlook hebt u mogelijk veel e-mailaccounts met veel mappen. In sommige gevallen wilt u twee mappen samenvoegen tot één en de dubbele items verwijderen. Hoe los je deze klus snel op? In dit artikel introduceer ik een VBA-code om u te helpen deze zo snel mogelijk in Outlook af te handelen.
Voeg twee mappen zonder duplicaten samen tot één door VBA-code
Voeg meerdere mappen samen en verwijder dubbele items met Kutools voor Outlook
Voeg twee mappen zonder duplicaten samen tot één door VBA-code
Om twee mappen samen te voegen tot één en de dubbele items te verwijderen, kunt u dit met VBA-code als volgt afhandelen:
1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster
2. Dubbelklik op DezeOutlookSessie oppompen van Project1 in het linkerdeelvenster, kopieer en plak vervolgens onderstaande code in het rechterscript.
VBA: voeg twee mappen samen zonder diplicaten
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
3. klikken Tools > Referenties en vink in het popping-dialoogvenster aan Microsoft Scripting-runtime checkbox.
4. klikken OK. Druk nu op F5 sleutel om de code uit te voeren. Er verschijnt een dialoogvenster om u eraan te herinneren de eerste map te selecteren die u wilt samenvoegen (opmerking: alle items in de eerste map worden verwijderd na het samenvoegen met de tweede map).
5. klikken OK, kies in het tweede popping-dialoogvenster de tweede map die u wilt vergelijken en waarmee u wilt samenvoegen.
6. klikken OK, nu worden alle items in de eerste map naar de tweede map verplaatst en worden de dubbele items ook verwijderd.
Voeg meerdere mappen samen en verwijder dubbele items met Kutools voor Outlook
Als u niet bekend bent met VBA-code, probeer dan Kutools for Outlook, een handige invoegtoepassing, met zijn Mappen consolideren en Dubbele e-mails hulpprogramma's die deze taak gemakkelijk en snel kunnen uitvoeren.
Kutools for Outlook , Inclusief 100+ krachtige functies en tools voor Microsoft Outlook 2016, 2013, 2010 en Office 365. |
||
Gratis installatie Kutools voor Outlook en voer de onderstaande stappen uit:
Voeg meerdere mappen samen
1. klikken Koetools Plus > Mappen consolideren, dan in de Voeg meerdere mappen samen tot één dialoogvenster, klik Toevoegen Om de mappen toe te voegen aan de lijst die zal worden samengevoegd, kiest u een map als de doelmap.
2. klikken OK > OK. Nu zijn alle items in de geselecteerde mappen samengevoegd in één specifieke map.
Verwijder dubbele items
3. klikken Kutools > Verwijder duplicaat > Dubbele e-mails. Dan in de Dubbele berichten dialoogvenster, vink de map aan waarvan u duplicaten wilt verwijderen.
4. klikken Volgendein Dubbele berichtinstellingen dialoogvenster, specificeer de criteria die u gebruikt om e-mails te vergelijken en vink vervolgens aan Verwijder dubbele berichten optie en selecteer Vergelijk voor dubbele berichten in een enkele map.
5. klikken Volgende > Volgende, de dubbele e-mails zijn gefilterd. Klik Verwijder dubbel bericht knop> OK om de dubbele e-mails met succes te verwijderen.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.