how to remove duplicate email in outlook

Posted on 2008-10-15
Last Modified: 2011-10-19
how to remove duplex messages in the inbox of outlook 2007
Question by:FREDARCE

Accepted Solution

Spydergt earned 500 total points
ID: 22725695
you can try this
Use the following steps to Delete Outlook duplicate email messages:

1. On the View menu, point to Current View, and then click to change the folder view to a table type view. Choose Inbox-Messages
2. Right-click a column heading, and then click Field Chooser.
3. From the list at the top of the Field Chooser, click to select the All item name fields.
4. Drag the Modified field to the table heading.
5. Verify that the duplicate items have a unique date from the original set of items. If it is unique, click the Modified heading so that the items are sorted by this field.
6. Click the first item in the set that you want to delete, scroll to the last item in the set that you want to delete, and then click the last item while you hold down the SHIFT key.
7. Press DELETE to permanently delete all selected items.

Expert Comment

ID: 23003527

Create in Inbox a subdir called sort_duplicate and another one called Temp

Execute the vbs script by double clicking on it.

Hope this helps

This is public domain !
Const olFolderInbox = 6

Const olFolderSentMail = 5

Const myfolder = "sort_duplicate"

Set MonApply = CreateObject("Outlook.Application") 

Set MonNSpace = MonApply.GetNamespace("MAPI")    'Bank MAPI

'Set FldDossier = MonNSpace.GetDefaultFolder(olFolderSentMail)    'Inbox Folder

Set FldDossier = MonNSpace.GetDefaultFolder(olFolderInbox)

Set MonDossier = MonNSpace.GetDefaultFolder(olFolderInbox)

dim icpt


dim nbmail


set dico = CreateObject("Scripting.Dictionary")

'msgbox FldDossier.Folders("Temp").Items.Count

'String init

strInfos = ""

'Loop to parse email

For i = 1 To nbmail

	'instantiate next email

		on error resume next

	  Set MonMail = FldDossier.Folders(myfolder).Items(i)

		if err.number=0 then

  	  'Get data from email

    	With MonMail

      	  strInfos = "Sender : " & .SenderEmailAddress

        	strInfos = strInfos & vbCr & "Recipients : " & .To

	        'strInfos = strInfos & vbCr & "Receipt_date : " & .ReceivedTime

					strInfos = strInfos & vbCr & "Size : " & .Size

    	End With


			if not dico.exists(strInfos) then

				dico.add strInfos, strInfos



							MonMail.move MonDossier.Folders("Temp")

			end if

		end if

		on error goto 0


		msgbox icpt & " emails moved to Inbox\Temp"

Open in new window

Featured Post

VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Learn more about how the humble email signature can be used as more than just an electronic business card. When used correctly, a signature can easily be tailored for different purposes by different departments within an organization.
This process describes the steps required to Import and Export data from and to .pst files using Exchange 2010. We can use these steps to export data from a user to a .pst file, import data back to the same or a different user, or even import data t…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now