This article will introduce a quick solution to print a list of the birthdays of all contacts stored in Outlook. If you have such a requirement, you will surely find this post quite helpful.
Perhaps you’ve input the birthday information to many contacts in your Outlook. Now, if you want to quickly extract the birthday of all contacts and print them in a list, you can apply the following method. It’ll teach you to utilize Outlook VBA to realize this task within seconds. If you don’t know how to use VBA, you can refer to the article – “How to Run VBA Code in Your Outlook”.
Print a List of All Contacts’ Birthdays
- In the first place, launch your Outlook program.
- Then, access Outlook VBA editor by pressing “Alt + F11” key buttons.
- Subsequently, put the VBA code below into an unused module.
Sub PrintListOfContactBirthdays() Dim objStore As store Dim objFolder As Folder Dim strBirthdayList As String Dim objFileSystem As Object Dim strTextFile As String Dim objTextFile As Object strBirthdayList = "" For Each objStore In Application.Session.Stores For Each objFolder In objStore.GetRootFolder.Folders If objFolder.DefaultItemType = olContactItem Then Call ProcessFolders(objFolder, strBirthdayList) End If Next Next 'Input the birthday list into a text file strTextFile = Environ("Temp") & "\Birthday List.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True) objTextFile.WriteLine (strBirthdayList) objTextFile.Close 'Print the text file Shell ("notepad.exe /p " & strTextFile) Kill strTextFile End Sub Sub ProcessFolders(ByVal objCurFolder As Folder, strList As String) Dim objItem As Object Dim objContact As ContactItem Dim strBirthdayInfo As String Dim objSubFolder As Folder For Each objItem In objCurFolder.Items If objItem.Class = olContact Then Set objContact = objItem On Error Resume Next If objContact.Birthday <> #1/1/4501# Then strBirthdayInfo = objContact.FullName & ": " & objContact.Birthday 'Exclude duplicates If InStr(1, strList, strBirthdayInfo, vbTextCompare) = 0 Then strList = strList & vbCr & strBirthdayInfo End If End If End If Next 'Process all subfolders recursively If objCurFolder.Folders.Count > 0 Then For Each objSubFolder In objCurFolder.Folders Call ProcessFolders(objSubFolder, strList) Next End If End Sub
- Afterwards, you can run this macro.
- First off, click into “PrintListOfContactBirthdays” subroutine.
- Then, press “F5” key button.
- Finally, as the macro completes, a list of all contacts’ birthdays will be printed out, like the following screenshot:
Fix Outlook Errors as Soon as Possible
Provided that you have utilized Outlook for decades, you may have encountered errors from time to times. So, how do you deal with them generally? Commonly, a small error can be resolved by a simple restart. Yet, assuming that the issues are serious, you can firstly resort to the inbox repair tool. If unfortunately the built-in tool also fails, you have to take aid of a more excellent and reliable external utility, such as DataNumen Outlook Repair.
Author Introduction:
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf recovery and outlook repair software products. For more information visit www.datanumen.com