Outlook & VBA : Export contact information to Excel

Please find the following script that retrieves the FullName and BusinessTelephoneNumber properties for all the contacts in an Outlook address book:   1: On Error Resume Next 2:   3: Const olFolderContacts = 10 4:   5: Set objOutlook = CreateObject("Outlook.Application") 6: Set objNamespace = objOutlook.GetNamespace("MAPI") 7:   8: Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items 9:  …

2