delete duplicates in outlook 2010 calendar

The macros on this page should be placed in a module. In Outlook 2007 and older, look at Tools, Macro Security.Īfter you test the macro and see that it works, you can either leave macro security set to low or sign the macro. To check your macro security in Outlook 2010 and newer, go to File, Options, Trust Center and open Trust Center Settings, and change the Macro Settings. You can sign the macro when it is finished and change the macro security to notify. You could choose the option Notification for all macros, then accept it each time you restart Outlook, however, because it's somewhat hard to sneak macros into Outlook (unlike in Word and Excel), allowing all macros is safe, especially during the testing phase. The macros will not work with the top two options that disable all macros or unsigned macros. If objDictionary.Exists(strKey) = True Thenįirst: You need to have macro security set to the lowest setting, Enable all macros during testing.

StrKey = objItem.Subject & ',' & objItem.Body & ',' & objItem.SentOn If InStr(1, objItem.MessageClass) 'IPM.Schedule' Then Set objDupFolder = ('Duplicates')įor i = To 1 Step -1 Set objDictionary = CreateObject('scripting.dictionary') After reviewing the duplicates, delete the folder.

The macro will create a subfolder named Duplicates and move the duplicate messages to it. To use, select a folder that needs checked for duplicates and run the macro.

See Duplicate Remover Tools for third party utilties. If you have a lot of messages in the folder, expect it to take some time to run.

Delete duplicates in outlook 2010 calendar