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.
Dites adieu à l'inefficacité d'Outlook ! Kutools pour Outlook facilite le traitement par lots des e-mails - désormais avec des fonctionnalités gratuites alimentées par l'IA ! Téléchargez Kutools pour Outlook 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 sa 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 E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...
📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...
📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...
🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...
Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !
🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Recommandé vivement : Kutools pour Office (5-en-1)
Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !
- ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
- 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
- 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint