how to delete duplicate emails in outlook 365

'In the item has not been added then add it now so subsequent matches will be deleted 'If the item has previously been added then delete this duplicate Message = Folder.Items(i).Subject & '|' & Folder.Items(i).Body 'This is setup to use the Sunject and Body, additional criteria could be added if desired 'Load the matching criteria to a variable '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'.

How to delete duplicate emails in outlook 365