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.
0 kommentar(er)
