basinsights.blogg.se

Delete duplicates in outlook archive
Delete duplicates in outlook archive






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.

delete duplicates in outlook archive delete duplicates in outlook archive

If you have a lot of messages in the folder, expect it to take some time to run.








Delete duplicates in outlook archive