Comment fusionner deux dossiers sans doublons dans un dossier dans Outlook?

Dans Outlook, vous pouvez avoir de nombreux comptes de messagerie avec de nombreux dossiers, dans certains cas, vous souhaitez fusionner deux dossiers en un et supprimer les éléments en double. Comment pouvez-vous résoudre rapidement ce problème? Dans cet article, je présente un code VBA pour vous aider à le gérer le plus rapidement possible dans Outlook.

Fusionner deux dossiers sans doublons en un par code VBA

Fusionnez plusieurs dossiers et supprimez les éléments en double avec Kutools for Outlook

Fusionner deux dossiers sans doublons en un par code VBA

Pour fusionner deux dossiers en un et supprimer les éléments en double, vous pouvez le gérer avec le code VBA comme suit:

1. presse Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre

2. Double-cliquez sur Cette session Outlook de Project1 dans le volet gauche, puis copiez et collez le code ci-dessous dans le script de droite.

VBA: Fusionnez deux dossiers sans diplômes

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 fusionner les dossiers sans doublons 1

3. Cliquez Outils > Bibliographie et dans la boîte de dialogue contextuelle, vérifiez Exécution de scripts Microsoft case à cocher.

doc fusionner les dossiers sans doublons 2

doc fusionner les dossiers sans doublons 3

4. Cliquez OK. Maintenant appuyez sur F5 clé pour exécuter le code. Une boîte de dialogue apparaît pour vous rappeler de sélectionner le premier dossier que vous souhaitez fusionner (remarque: tous les éléments du premier dossier seront supprimés après la fusion avec le deuxième dossier).
doc fusionner les dossiers sans doublons 4

5. Cliquez OK, dans la deuxième boîte de dialogue contextuelle, choisissez le deuxième dossier avec lequel vous souhaitez comparer et fusionner.
doc fusionner les dossiers sans doublons 5

6. Cliquez OKmaintenant, tous les éléments du premier dossier seront déplacés vers le deuxième dossier et les éléments en double sont également supprimés.
doc fusionner les dossiers sans doublons 6

Fusionnez plusieurs dossiers et supprimez les éléments en double avec Kutools for Outlook

Si vous n'êtes pas familier avec le code VBA, essayez d'utiliser Kutools for Outlook, un complément pratique, avec son Consolidation des dossiers et Dupliquer les e-mails utilitaires qui peuvent facilement et rapidement gérer ce travail.

Kutools for Outlook , Inclus 100+ fonctionnalités et outils puissants pour Microsoft Outlook 2016, 2013, 2010 et Office 365.
Aller au téléchargement Essai gratuit 45 jours

Installation gratuite Kutools for Outlook, puis procédez comme suit:

Fusionner plusieurs dossiers

1. Cliquez Kutools Plus > Consolidation des dossiers, puis dans le Fusionner plusieurs dossiers en un dialogue, cliquez sur Ajouter pour ajouter les dossiers dans la liste qui sera fusionnée, choisissez un dossier comme dossier de destination.

2. Cliquez OK > OK. Maintenant, tous les éléments des dossiers sélectionnés ont été fusionnés dans un dossier spécifique.
doc consolider et supprimer le doublon 2

Supprimer les éléments en double

3. Cliquez Kutools > Supprimer le doublon > Dupliquer les e-mails. Puis dans le Dupliquer les messages boîte de dialogue, cochez le dossier dans lequel vous souhaitez supprimer les doublons.

4. Cliquez Suivanten Paramètres des messages en double boîte de dialogue, spécifiez les critères que vous utilisez pour comparer les e-mails, puis vérifiez Supprimer les messages en double option et sélectionnez Comparer les messages en double dans un seul dossier.

5. Cliquez Suivant > Suivant, les e-mails en double ont été filtrés. Cliquez sur Supprimer le message en double bouton> OK pour supprimer les e-mails en double avec succès.
doc fusionner les dossiers sans doublons 6