![]() If > 0 Then ActiveSheet.ListObjects(1).DeleteĪrray("Name", "Company", "Address", "City", "State", "Zip", "Phone", "Email") Set olFolder = olA.GetNamespace("MAPI").GetSharedDefaultFolder(olRecipient, olFolderContacts) ![]() Set olRecipient = olNS.CreateRecipient(sAccountName) GetContacts("Craig Hatmaker") Sub GetContacts(sAccountName As String)ĭim olNS As Namespace '(v=office.12).aspxĭim olRecipient As Recipient '(v=office.12).aspxĭim olFolder As MAPIFolder '(v=office.12).aspx The following example, when run from the VBE's immediate window in Excel will retrieve all contacts from the account ![]() ![]() For those okay with VBA, this code pulls contacts from an Outlook shared folder (or the personal folder) into an Excel Table. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |