Comment fusionner deux dossiers sans doublons en un seul dossier dans Outlook ?
Dans Outlook, vous pouvez avoir plusieurs comptes de messagerie avec de nombreux dossiers. Dans certains cas, vous souhaitez fusionner deux dossiers en un seul et supprimer les éléments en double. Comment pouvez-vous résoudre rapidement cette tâche ? Dans cet article, je présente un code VBA pour vous aider à gérer cela aussi rapidement que possible dans Outlook.
Fusionner deux dossiers sans doublons en un seul avec 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 avec un code VBA
Pour fusionner deux dossiers en un seul et supprimer les éléments en double, vous pouvez le faire avec 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" depuis "Projet1" dans le volet de gauche, puis copiez et collez le code ci-dessous dans la fenêtre de script à 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", et dans la boîte de dialogue qui apparaît, cochez la case "Microsoft Scripting Runtime".
 |  |  |
4. Cliquez sur "OK". Maintenant, appuyez sur la touche "F5" pour exécuter le code. Une boîte de dialogue apparaîtra pour vous rappeler de sélectionner le premier dossier que vous souhaitez fusionner (note : tous les éléments du premier dossier seront supprimés après la fusion avec le deuxième dossier).
5. Cliquez sur "OK". Dans la deuxième boîte de dialogue qui apparaît, choisissez le deuxième dossier que vous souhaitez comparer et fusionner.
6. Cliquez sur "OK". Maintenant, tous les éléments du premier dossier seront déplacés vers le deuxième dossier, et les doublons seront supprimés.
Fusionner plusieurs dossiers et supprimer les éléments en double avec Kutools pour Outlook
Si vous n'êtes pas familier avec le code VBA, essayez d'utiliser "Kutools pour Outlook", un module complémentaire pratique, avec ses utilitaires "Organiser les dossiers" et "Emails en double", qui peuvent facilement et rapidement gérer cette tâche.
Découvrez l'efficacité ultime des emails avec Kutools pour Outlook ! Accédez à 70 fonctionnalités puissantes entièrement gratuites, pour toujours. Téléchargez la version gratuite dès maintenant !
Fusionner plusieurs dossiers
1. Cliquez sur "Kutools Plus" > "Organiser les dossiers", puis dans la boîte de dialogue "Organiser plusieurs dossiers en un seul", cliquez sur "Ajouter" pour ajouter les dossiers que vous souhaitez fusionner dans la liste, et choisissez un dossier comme dossier cible.
2. Cliquez sur "OK" > "OK". Maintenant, 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". Ensuite, dans la boîte de dialogue "Emails en double", cochez le dossier où vous souhaitez supprimer les doublons.
4. Cliquez sur "Suivant". Dans la boîte de dialogue "Paramètres des messages en double", spécifiez les critères que vous utiliserez pour comparer les emails. Ensuite, cochez l'option "Supprimer les e-mails en double" et sélectionnez "Comparer pour les e-mails en double dans un seul dossier".
5. Cliquez sur "Suivant" > "Suivant", et les emails en double seront filtrés. Cliquez sur le bouton "Supprimer les messages en double" > "OK" pour supprimer les emails en double avec succès.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
