Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread. If the response is helpful, please click " Accept Answer" and upvote it. 'Release the object variables from memory '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 Remove the check in the box 'Leave a copy of messages on server. You will see a box open (named Internet Accounts), click 'Mail' tab, click on the mail account, click on Properties>Advanced. Message = Folder.Items(i).Subject & "|" & Folder.Items(i).Body Fix: Uncheck the 'Leave Messages on the Server' box. '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".
0 Comments
Leave a Reply. |