Some users would like to remove the birthdays and anniversaries from all the contacts in their Outlook. This article will introduce 2 methods to realize this in batches.
Since Outlook will auto add the corresponding birthday and anniversary events to calendar when birthday and anniversary info is added to contacts, some users would like to directly remove such info from all contacts after deleting the events. Thereinafter, we’ll share you 2 methods, both of which can remove birthdays and anniversaries from all contacts in bulk.
Method 1: Batch Remove via Drag & Drop
- At the very beginning, access a certain Contacts folder.
- Then, switch to “View” tab and click “Change View”.
- From the drop down list, choose “List”.
- Next, click the adjacent “View Settings” button.
- In the popup “Advanced View Settings: List” dialog box, click on “Group By” button.
- Subsequently, in the new dialog box, take the following steps:
- First, choose “All Contact fields” in the drop down list of “Select available fields from:” at the bottom.
- Then, select “Birthday” from the list of “Group items by”.
- Lastly, click a series of “OK” until all dialog boxes are closed.
- After returning to the contact list, you can see all the contacts are grouped by their birthday.
- If there isn’t any contact that is in “Birthday: None” group, you should firstly remove a contact’ birthday.
- Afterwards, you can drag and drop all the contacts who are in other groups to the “Birthday: None” group, like the following screenshot:
- After that, all the contacts’ birthday information has been changed to “None”.
- Now, you can use the same way to remove the anniversary from all contacts.
Method 2: Batch Remove via Outlook VBA
- First off, in the Outlook window, press the shortcut “Alt + F11” key buttons.
- Then, in the new “Microsoft Visual Basic for Applications” window, you need to open an unused module.
- Next, copy and paste the following VBA code into this module.
Sub RemoveBirthdayAnniversaryfromAllContacts() Dim objStores As Stores Dim objStore As store Set objStores = Outlook.Application.Session.Stores For Each objStore In objStores Call ProcessFolders(objStore.GetRootFolder.Folders) Next End Sub Sub ProcessFolders(ByVal objFolders As Folders) Dim objFolder As Folder Dim objItem As Object Dim objContact As ContactItem For Each objFolder In objFolders If objFolder.DefaultItemType = olContactItem Then For Each objItem In objFolder.Items If objItem.Class = olContact Then Set objContact = objItem On Error Resume Next 'Change birthday and anniversary to "None" With objContact .Birthday = #1/1/4501# .Anniversary = #1/1/4501# .Save End With End If Next Call ProcessFolders(objFolder.Folders) End If Next End Sub
- Eventually, you can trigger this macro by pressing F5 key button.
- After this macro finishes, birthday and anniversary have been removed from all the contacts in all folders.
Take Adequate Precautions to Safeguard Outlook
Due to Outlook’s vulnerability, you must have known the necessity of remaining well-prepared for Outlook corruption. Unquestionably, making periodic backups is one of the most essential precautions. Also, it is prudent to get hold of a potent Outlook fix tool, like DataNumen Outlook Repair. It can minimize data corruption to its utmost.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql recovery and outlook repair software products. For more information visit www.datanumen.com