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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
