Removing Birthdays and Anniversaries from the Calendar

Last reviewed on May 22, 2013   —  10 comments

Not surprisingly, there are more than a few users who don't Outlook to add birthdays to their calendar. Generally speaking, the best way to prevent this is by not putting birth dates and anniversaries in the contact fields. If you want to keep a record of important dates, add them to the notes field or use the User Fields.

However, if you want to use the birthday field, you can use a macro to remove the birthday event from the calendar. It's not 100% fool-proof and may not prevent every birthday from being added to the calendar, but it should delete most additions.

Remove Dates from Contacts

If you want to remove the dates quickly and (fairly) easily, use a group by view, grouping by the Birthday or Anniversary field then drag the contacts to the None field. You can hold Shift as you select as group of Contacts, which will speed the process up if you have a lot of contacts.

Drag to the None group to remove the date

Remove Events from the Calendar

If the Contacts and Events are still linked, Outlook will delete the birthday or anniversary event when you remove the date from the Contact. However, its easy to break the link which will prevent Outlook from breaking the link. (Syncing with a device will often break the link).

Removing the dates from the calendar is simple: initiate a search for Birthday OR Anniversary and delete the items with those words in the subject. Hold Shift as you select the first and last items to delete a group of events at once.

Remove Dates from Contacts Tutorial

This video shows you how to use a group by view to remove dates from Contacts and use Instant Search to find Birthday and Anniversary events on your calendar.

In the Contacts folder:

  1. Switch to a List view
  2. Add the Birthday and Anniversary field to the view. In Outlook 2010, do this from View ribbon, View setting. In other versions, you can right click on the row of field names and choose Field Chooser. Birthday and Anniversary are under Personal Fields.
  3. Right click on one of the new fields and choose Group by this field.
  4. If another field is in the Group by box, drag it out.
  5. Locate the Birthday: None group and drag the items to it. You can use Ctrl+A to select all or Ctrl+Click to select a group.
  6. Repeat for the other field.

If the events are still linked to the Contact, Outlook will remove them from the calendar when you clear the contact.

To check, go the Calendar and type Birthday OR Anniversary in the Search field. Delete the events you don't want, using Ctrl+Click to select a group.

VBA to Remove Birthday Events

To use, copy then paste in the Outlook's VBA editor (press Alt+F11 to open it.) Click in the Start Up macro and press the Run button.

To test: go into the Calendar and search for Birthday. This will show all birthday events. Open a new contact form and size it so you can see the calendar screen. Create a contact with a birthday field and watch the calendar screen. If the macro is working, you should see it jump when you save and close the contact. If its not working, you'll see the new Birthday event.

Dim WithEvents mcolCalItems As Items

Private Sub Application_Startup()
    Dim objNS As NameSpace
    Set objNS = Application.GetNamespace("MAPI")
    Set mcolCalItems = objNS.GetDefaultFolder(olFolderCalendar).Items
    Set objNS = Nothing
End Sub

Private Sub mcolCalItems_ItemAdd(ByVal Item As Object)

    If Item.Class = olAppointment And _
       InStr(Item.Subject, "Birthday") Or InStr(Item.Subject, "Anniversary") > 0 Then
        With Item
            .Delete
        End With
    End If
End Sub

More Information

For help using the VBA Editor, see How to use Outlook's VBA Editor

See Adding Birthdays and Anniversaries to Outlook's Calendar for a macro to add a reminder to the birthday events.

Written by

Diane Poremsky
A Microsoft Outlook Most Valuable Professional (MVP) since 1999, Diane is the author of several books, including Outlook 2013 Absolute Beginners Book. She also created video training CDs and online training classes for Microsoft Outlook. You can find her helping people online in Outlook Forums as well as in the Microsoft Answers and TechNet forums.

Please post long or more complicated questions at Outlookforums.

10 responses to “Removing Birthdays and Anniversaries from the Calendar”

  1. jack Kukura

    Thank You!!!!!!

  2. Scott C. Athen Esquire

    Will this script remove events like "Birthday Party"?

  3. Scott C. Athen Esquire

    How can I NOT delete for example "Birthday Party"?

  4. Brett

    Also checking it is an all day event and a recurring event seems to have done the trick for me...

    If Item.Class = olAppointment And _
    Item.GetRecurrencePattern.RecurrenceType = olRecursYearly And _
    Item.AllDayEvent And _
    (Right(Item.Subject, 11) = "'s Birthday" Or Right(Item.Subject, 14) = "'s Anniversary") Then

  5. benjitek

    Google Apps, and Gmail's calendar, handle birthdays perfectly -- a separate calendar that you can turn on/off. Outlook's method is the equivalent of a birthday-abacus :-(

  6. Roland

    I managed to solve this problem by watching the calendar folder for the add or change event and then see if the word " 's Birthday" or " 's Anniversary" is the subject of the Calendar entry. If it is then a message box appears with the option to delete the calendar entry. I used ( 's birthday) as this is how Outlook names the entry using the contact name.

    I added the following code to the ThisOutlookSession

    Dim FolderCal As clsFolderCalendar
    Set FolderCal = New clsFolderCalendar

    In addition to this I then created a class module called clsFolderCalendar

    I then added the following code:

    Private WithEvents items As Outlook.items
    'THIS DEALS WITH THE AUTOMATIC GENERATION OF CALENDAR REMINDERS FOR BIRTHDAYS AND ANNIVERSARY WHEN CONTACT ADDED OR CHANGED.

    Private Sub Class_Initialize()
    Dim ns As Outlook.NameSpace
    Dim CalendarFolder As Outlook.MAPIFolder
    Dim myAppointment As Object

    Set ns = Application.GetNamespace("MAPI")
    Set CalendarFolder = ns.GetDefaultFolder(olFolderCalendar)
    Set items = CalendarFolder.items

    End Sub

    Private Sub Items_ItemAdd(ByVal Item As Object)

    Dim strResponse As Integer
    Dim strSubject As Integer

    If Item.Class = olAppointment Then
    If InStr(Item.Subject, "'s Birthday") > 0 Or InStr(Item.Subject, "'s Anniversary") > 0 Then
    ' Displays a message box with the yes and no options.
    strResponse = MsgBox(prompt:="A new Calendar Reminder " & Item.Subject & " has been created." & vbCrLf & vbCrLf & "Do you want to delete it ?", Buttons:=vbYesNo)

    ' If statement to delete calendar entry if yes button was selected.
    If strResponse = vbYes Then
    Item.Delete
    End If
    End If
    End If

    End Sub

    Private Sub items_ItemChange(ByVal Item As Object)

    Dim strResponse As Integer
    Dim strSubject As Integer

    If Item.Class = olAppointment Then
    If InStr(Item.Subject, "'s Birthday") > 0 Or InStr(Item.Subject, "'s Anniversary") > 0 Then
    ' Displays a message box with the yes and no options.
    strResponse = MsgBox(prompt:="The existing Calendar Reminder " & Item.Subject & " has been amended." & vbCrLf & vbCrLf & "Do you want to delete it ?", Buttons:=vbYesNo)

    ' If statement to delete calendar entry if yes button was selected.
    If strResponse = vbYes Then
    Item.Delete
    End If
    End If
    End If
    End Sub

    If you wanted you could delete the message box option and have the entry deleted straight away but this would not give you the option to leave the entry if you actually wanted it.

    Hope this helps.

    Roland

Leave a Reply

If the Post Coment button disappears, press your Tab key.