Es kann vorkommen das Sie durch Synchronisationsfehler, z.B. mit der Cloud doppelte Nachrichten in Ihrem Postfach vorfinden. Um diese Nachrichten zu löschen haben wir Ihnen ein kleines VBA Skript erstellt, welches doppelte Nachrichten löscht.
In diesem Skript wird die Größe und der Inhalt der Nachricht zusammen mit dem Betreff in die Dictionary-Struktur hinzugefügt. Wenn eine Nachricht mit demselben Betreff, derselben Größe und demselben Inhalt bereits vorhanden ist, wird sie gelöscht.
Bitte beachten Sie, dass dies nur ein Beispiel ist und eventuell an Ihre spezifischen Anforderungen angepasst werden muss.
Sub DeleteDuplicateEmails() Dim myOlApp As Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.MAPIFolder Dim myItems As Outlook.Items Dim myItem As Object Dim myItemsDict As Object Set myOlApp = Outlook.Application Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) Set myItems = myInbox.Items
Set myItemsDict = CreateObject("Scripting.Dictionary") For Each myItem In myItems If Not myItemsDict.Exists(myItem.Subject & myItem.Size & myItem.Body) Then myItemsDict.Add myItem.Subject & myItem.Size & myItem.Body, myItem Else myItem.Delete End If Next myItem End Sub
Eine weitere Alternative zum Entfernen doppelter Nachrichten ist der Duplicate Email Remover. Mit dieser Outlook-Erweiterung haben Sie noch mehr Filtermöglichkeiten.