missioncas.blogg.se

If you have fewer contacts then you can manually select each duplicate contact and delete it or the other method is to select the contacts all at once. There are numerous ways to merge duplicates Contacts in Outlook. Manual approach to merge duplicates Contacts in Outlook

Steps to Deleting the contacts all at once.Steps to Deleting the contacts one by one.Manual approach to merge duplicates Contacts in Outlook.Sub Delete_Duplicate_Calender() 'Public Dim myFolder As Outlook.MAPIFolder, myitems As Outlook.Items, oldcalender As Object, newcalender As Object Set myFolder = Session.GetDefaultFolder(olFolderCalendar) Set myitems = myFolder.Items myitems.Sort "", olDescending For Each oldcalender In myitems 'Ensure the item is a calender and not a DL' If oldcalender.Class = olCalender Then 'Ensure that the item isn't already marked as a duplicate' If oldcalender.FTPSite "DELETE_DUPLICATE" Then For Each newcalender In myitems 'Ensure that the item is a contact and not a DL' If newcalender.Class = olCalender Then 'Ensure that we aren't comparing the item to itself' If oldcalender.EntryID newcalender.EntryID Then If ((newcalender.subject = oldcalender.subject) And _ (newcalender.Start = oldcalender.Start) And _ (newcalender.Location = oldcalender.Location)) Then 'use Note as a flag to mark duplicates newcalender.Body = "DELETE_DUPLICATE" newcalender.Save End If End If End If Next End If End If Next Set myFolder = Nothing Set myitems = Nothing Set oldcontact = Nothing Set newcontact = Nothing MsgBox "Processing complete. Any help you can offer would be appreciated. If you have an alternative Script / Macro, i would be happy to use it instead. I am trying to write a script to delete duplicate calendar entries in Outlook by matching on Subject, Start and Location.