'Loop backwards to ensure that the deleting of the emails does not interfere with subsequent items in the loop 'Check each email starting from the last and working backwards to 1 'Get the count of the number of emails in the folder 'Allow the user to select a folder in Outlook Set AppOL = CreateObject("Outlook.Application") Set Items = CreateObject("Scripting.Dictionary") Accoridng to my tests, it could remove the duplicate items that I copy and paste manually in a specific folder, so please try to press " Alt + F11" to paste the script and run it in the user's Outlook to check if it could also work for you (Notice: we may need to Enable all macro in Outlook to run the script- File>Option>Trust center>Trust center settings>Macro settings>Enable all macro) : Sub DeleteDuplicateEmailsInSelectedFolder() And agree with michev, we could first try to log into your web mail to check if there are any duplicate items there.Īlso, for your requirement of removing duplicate in Outlook, I found a relevant VBA script below. pst file to your mailbox before? As I know, it may cause some duplicate emails if we import a file and forget to choose "don't import duplicate".
0 Comments
Leave a Reply. |