Comment fusionner deux dossiers en un seul dans Outlook sans créer de doublons ?

Dans Outlook, vous pouvez gérer plusieurs comptes de messagerie, chacun contenant de nombreux dossiers. Il arrive parfois que vous souhaitiez fusionner deux dossiers en un seul et éliminer les doublons. Comment accomplir cette tâche rapidement ? Dans cet article, je vous propose un code VBA pour réaliser cette opération de la manière la plus efficace possible dans Outlook.

Fusionner deux dossiers sans doublons en un seul à l’aide d’un code VBA

Fusionner plusieurs dossiers et supprimer les éléments en double avec Kutools pour Outlook

---

Fusionner deux dossiers sans doublons en un seul à l’aide d’un code VBA

Pour fusionner deux dossiers en un seul et supprimer les éléments en double, vous pouvez utiliser un code VBA en suivant ces étapes :

1. Appuyez sur les touches « Alt + F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez sur « ThisOutlookSession » dans « Projet1 », dans le volet gauche, puis copiez-collez le code ci-dessous dans la fenêtre de script située à droite.

VBA : Fusionner deux dossiers sans doublons

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. Cliquez sur « Outils » > « Références », puis cochez la case « Microsoft Scripting Runtime » dans la boîte de dialogue qui s’ouvre.

4. Cliquez sur « OK », puis appuyez sur la touche « F5 » pour exécuter le code. Une boîte de dialogue s’ouvre alors pour vous inviter à sélectionner le premier dossier à fusionner (remarque : tous les éléments de ce dossier seront supprimés après sa fusion avec le second).

5. Cliquez sur « OK ». Dans la deuxième boîte de dialogue, sélectionnez le second dossier avec lequel vous souhaitez effectuer la comparaison et la fusion.

6. Cliquez sur « OK ». Tous les éléments du premier dossier ont désormais été transférés vers le second, et les doublons ont été automatiquement supprimés.

---

Fusionner plusieurs dossiers et supprimer les éléments en double avec Kutools pour Outlook

Si vous n’êtes pas à l’aise avec le code VBA, optez pour « Kutools pour Outlook », une extension pratique équipée des outils « Organiser les dossiers » et « Emails en double » pour accomplir cette tâche facilement et rapidement.

Fusionner plusieurs dossiers

1. Cliquez sur « KUTOOLS PLUS » > « Organiser les dossiers », puis, dans la boîte de dialogue « Organiser plusieurs dossiers en un seul dossier », cliquez sur « Ajouter » pour inclure à la liste les dossiers que vous souhaitez fusionner et sélectionnez l’un d’eux comme dossier de destination.

2. Cliquez sur « OK » > « OK ». Tous les éléments des dossiers sélectionnés ont été fusionnés dans le dossier spécifié.

Supprimer les éléments en double

3. Cliquez sur « Kutools » > « Supprimer les doublons » > « Emails en double ». Dans la boîte de dialogue « Emails en double », cochez le dossier dans lequel vous souhaitez supprimer les doublons.

4. Cliquez sur « Suivant ». Dans la boîte de dialogue « Paramètres Emails en double », définissez les critères à utiliser pour comparer les e-mails, cochez l’option « Supprimer les e-mails en double », puis sélectionnez « Comparer dans un seul dossier ».

5. Cliquez sur « Suivant » > « Suivant » pour filtrer les e-mails en double, puis appuyez sur « Supprimer les messages en double » > « OK » afin de les éliminer efficacement.