Löschen Sie doppelte Nachrichten in Outlook per VBA Skript.

Outlook VBA

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.

-

Vorheriger Artikel Nächster Artikel

Hat Ihnen der Beitrag gefallen?

Löschen Sie doppelte Nachrichten in Outlook per VBA Skript.: 1 Stern2 Sterne3 Sterne4 Sterne5 Sterne
1,00 von 5 Sterne, basierend auf 1 abgegebenen Stimmen.
Loading...

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

CAPTCHA eingeben * Das Zeitlimit ist erschöpft. Bitte CAPTCHA neu laden.