It compares emails based on the sender, recipient, subject, body text, and attachments.

Here is where the story takes a turn. This search often leads to two destinations, neither of which ends well:

Sub RemoveDuplicateEmails() Dim olFolder As MAPIFolder Dim items As Items Dim dict As Object Dim item As Object Set dict = CreateObject("Scripting.Dictionary") Set olFolder = Application.ActiveExplorer.CurrentFolder Set items = olFolder.items For i = items.Count To 1 Step -1 Set item = items(i) If item.Class = olMail Then key = item.Subject & item.SentOn & item.SenderEmailAddress If dict.exists(key) Then item.Delete Else dict.Add key, Nothing End If End If Next End Sub

: If you already purchased the software but lost your key, you can search your inbox for keywords like "MAPILab license" or "MAPILab activation".

If you use Microsoft Outlook for business, you’ve likely dealt with the "duplicate explosion." This usually happens after: Synchronizing your smartphone with your desktop. Importing a backup PST file multiple times. Interrupted mail server downloads. Merging multiple email accounts into one profile.

, which includes 21 different Outlook add-ins (including duplicate removers) for the price of one. Key Features of Duplicate Email Remover