|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
|
|
#1
January 23rd 07, 08:40 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Personal Address Book Details
I am using this code to access information in a Personal Address Book
iRow = 0 For Each oAddressEntry In oAddressList.AddressEntries If oAddressEntry.DisplayType = 5 Then iRow = iRow + 1 oWorksheet.Cells(iRow, 1) = oAddressEntry.Name oWorksheet.Cells(iRow, 1).Font.Bold = True For Each oMember In oAddressEntry.Members iRow = iRow + 1 oWorksheet.Cells(iRow, 1) = oMember.Name oWorksheet.Cells(iRow, 2) = oMember.Address Next Else iRow = iRow + 1 oWorksheet.Cells(iRow, 1) = oAddressEntry.Name oWorksheet.Cells(iRow, 1).Font.Bold = True oWorksheet.Cells(iRow, 2) = oAddressEntry.Address End If Next Can't figure out how to access details like the fax number. Is it possible? Thank-you 
|
|
#2
January 24th 07, 09:47 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Personal Address Book Details
There is no FAX property, and AFAIK the Type property doesn't indicate FAX
(it might - it usually has EX or SMTP I believe). If this was an AddressEntry object from your Contacts folder exposed as an Outlook AddressBook, you could get the related Contact and read BusinessFaxNumber, etc. from the ContactItem object. However, you'll need to search in the Contacts folder for the Contact using AddressEntry.Name (there's an AddressEntry.GetContact method with Outlook 2007 or Redemption). -- Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration) Try Picture Attachments Wizard for Outlook: http://www.collaborativeinnovations.ca Blog: http://blogs.officezealot.com/legault/ "ABM" wrote: I am using this code to access information in a Personal Address Book iRow = 0 For Each oAddressEntry In oAddressList.AddressEntries If oAddressEntry.DisplayType = 5 Then iRow = iRow + 1 oWorksheet.Cells(iRow, 1) = oAddressEntry.Name oWorksheet.Cells(iRow, 1).Font.Bold = True For Each oMember In oAddressEntry.Members iRow = iRow + 1 oWorksheet.Cells(iRow, 1) = oMember.Name oWorksheet.Cells(iRow, 2) = oMember.Address Next Else iRow = iRow + 1 oWorksheet.Cells(iRow, 1) = oAddressEntry.Name oWorksheet.Cells(iRow, 1).Font.Bold = True oWorksheet.Cells(iRow, 2) = oAddressEntry.Address End If Next Can't figure out how to access details like the fax number. Is it possible? Thank-you
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| How can details from contacts be listed in my address book(Outloo. | keltis | Outlook - Using Contacts | 1 | July 5th 06 02:52 PM |
| Add to Personal Address Book | J Streger | Outlook - Using Contacts | 2 | June 1st 06 06:13 PM |
| deleting personal address book | Jeanne P | Outlook - Using Contacts | 4 | May 26th 06 08:43 PM |
| Personal Address Book | Rose | Outlook - Using Contacts | 2 | January 31st 06 04:00 PM |
| How do I increase the font size of the address book details | Maureen | Outlook - Using Contacts | 1 | January 25th 06 10:54 AM |
Hybrid Mode
