Si vous souhaitez fusionner tous les éléments de plusieurs dossiers Outlook et vous assurer qu'il n'y a pas de doublons, vous pouvez utiliser la méthode présentée dans cet article. Il utilise le code VBA pour vous aider à l'accomplir comme un bouchon.
Parfois, vous souhaiterez peut-être fusionner des éléments de plusieurs dossiers Outlook, comme fusionner tous les contacts de plusieurs dossiers de contacts Outlook. Dans cette situation, s'il y a des contacts en double parmi ces dossiers, vous devez espérer que les doublons pourront être supprimés automatiquement lors de la fusion. Dans ce cas, vous pouvez utiliser le code VBA suivant pour le réaliser facilement.
Fusionner des éléments de plusieurs dossiers sans doublons
- À start avec, lancez votre application Outlook.
- Ensuite, vous devez accéder à l'éditeur Outlook VBA en appuyant sur la touche "Alt + F11" dans l'écran principal d'Outlook.
- Ensuite, dans la fenêtre "Microsoft Visual Basic pour Applications", vous devez ouvrir un module qui n'est pas utilisé.
- Après cela, vous devez copier le code VBA suivant dans ce module.
'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
Dim objSourceFolder As Outlook.Folder
Dim objTargetFolder As Outlook.Folder
Dim i, n, x As Long
Dim objItem As Object
Dim objDictionary As Object
Dim strKey As String
Set objSourceFolder = Application.Session.PickFolder
Set objTargetFolder = Application.Session.PickFolder
If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
Else
'Merge the two folders
For i = objSourceFolder.Items.count To 1 Step -1
Set objItem = objSourceFolder.Items.Item(i)
objItem.Move objTargetFolder
Next i
Set objDictionary = CreateObject("scripting.dictionary")
'Remove the duplicates
x = 0
For n = objTargetFolder.Items.count To 1 Step -1
Set objItem = objTargetFolder.Items.Item(n)
Select Case objItem.Class
Case olMail
strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
Case olAppointment
strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
Case olContact
strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
Case olTask
strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
End Select
strKey = Replace(strKey, ", ", Chr(32))
If objDictionary.Exists(strKey) = True Then
objItem.Delete
x = x + 1
Else
objDictionary.Add strKey, True
End If
Next n
'Prompt you of the count of removed duplicates
If x <> 0 Then
MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
End If
End If
End Sub
- Plus tard, vous devrez vérifier vos paramètres de macro Outlook, en vous assurant que la macro est activée.
- Enfin, vous pouvez essayer.
- Tout d'abord, revenons à la nouvelle fenêtre de module.
- Appuyez ensuite sur la touche F5 pour déclencher cette macro.
- Ensuite, vous devez sélectionner les deux dossiers à fusionner. Le premier est celui de la source, et le second est le tarprends en un.
- Après cela, Outlook commencera à déplacer tous les éléments du dossier source vers le tarprends en un. De plus, entre-temps, les doublons seront automatiquement supprimés.
- En fin de compte, vous pouvez recevoir un message vous demandant le nombre de doublons supprimés, comme la capture d'écran ci-dessous :
De minuscules erreurs peuvent entraîner de gros plantages
Bien qu'il regorge d'excellentes fonctions, Outlook est toujours sensible aux erreurs et à la corruption. Peut-être avez-vous rencontré divers problèmes Outlook. De nombreux utilisateurs sont enclins à ignorer les erreurs aléatoires. Cependant, c'est la petite erreur qui déclenche de graves plantages d'Outlook, ce qui compromettra le fichier Outlook. Ainsi, vous ne devriez pas ignorer les petites erreurs. Au lieu de cela, vous devriez les éliminer dès que possible. De plus, vous feriez mieux de garder un appartement Réparation PST outil, tel que DataNumen Outlook Repair. Grâce à son taux de récupération élevé, cet utilitaire a épaulé ses pairs.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris sql corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com