The most likely reason for these duplicates is syncing. That's a question a lot of Outlook users ask themselves when they see dozens of duplicate contacts in their account. How Did I Get Duplicate Outlook Contacts? In this article, we'll teach you how to delete duplicate contacts in Outlook quickly and easily. While it's a really nice app to manage your emails, contacts and tasks in one place, some annoying problems happen from time to time. Part of the popularity of the email client is that it’s available for Windows, Mac, Android, and iOS it’s likely that you use it at least on your office computer, your laptop (or both). The latest version of Outlook includes useful features like meeting management, bill payment reminders, and time zone management.
Microsoft Outlook is by far the most popular email client out there.
This makes use of a Scripting.Dictionary because unlike the Collection object it supports a handy Exists() method.How to Delete Duplicate Contacts in Outlook Set Dupes = CreateObject("Scripting.Dictionary")ĭebug.Print "Dedupe, " & Items.Count & " items" If TargetFolder Is Nothing Then Set TargetFolder = ActiveExplorer.CurrentFolder If MinDate = vbEmpty Then MinDate = Date - 7 Sub RemoveDuplicates(Optional TargetFolder As Folder, Optional MinDate As Date) They default to the currently visible folder and seven days ago.
The following will keep the MailItem with the oldest date and delete more recent ones with the same subject.įor convenience TargetFolder and MinDate are configurable but optional. If Not oItems("ReceivedTime") Is Nothing ThenĬMail.Add oItems("Subject"), oItems("Subject")ĭebug.Print Err.Number, oItems("Subject"), oItems("ReceivedTime") Sub RemoveDuplicates()ĭim oEmail As MailItem, oItems As ItemProperties, oItem As ItemProperty It's counting in descending order and I can't seem to get the sorting of the items to work.īasically I need help figuring out how to make sure the "newest" duplicate by received time gets deleted. This code works but is deleting the oldest duplicates. Im trying to create a VBA macro that checks if there is a duplicate mail (looks at subject) and then deletes the mail.
0 kommentar(er)
