Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to retrieve Ms. Outlook contacts info
- Thread starter Winan
- Start date
- Thread starter
- #3
pls ignore it .. I did it already
Dim oOutlookContact As Outlook.ContactItem
Dim oContactFolder As Outlook.MAPIFolder
Set oContactFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For Each oOutlookContact In oContactFolder.Items
Debug.Print oOutlookContact.FullName &" "& oOutlookContact.Business2TelephoneNumber
Next
Dim oOutlookContact As Outlook.ContactItem
Dim oContactFolder As Outlook.MAPIFolder
Set oContactFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For Each oOutlookContact In oContactFolder.Items
Debug.Print oOutlookContact.FullName &" "& oOutlookContact.Business2TelephoneNumber
Next
- Status
