Import contacts in a distribution list

[dawnd3]

Client would like to take contacts from a distribution list and import to excel. I have not figured out a way to do anything with a distribution list other than email. How do I import those contacts or select them to put them in a category, or mail merge them from Outlook.

Thanks,

Dawn

http://www.calliopeconsulting.net

 

[peachmelba]

Try modify this

Public Function GetContact()
Dim olApp As Outlook.Application
Dim contacts As Outlook.MAPIFolder
Dim listContact As Outlook.Recipient
Dim distList As Outlook.DistListItem
Dim i As Integer

Set olApp = New Outlook.Application
Set contacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set distList = contacts.Items("Your Distribution List")

For i = 1 To distList.MemberCount
Set listContact = distList.GetMember(i)
Debug.Print listContact.Address
Next

Set listContact = Nothing
Set distList = Nothing
Set contacts = Nothing
Set olApp = Nothing


End Function

Regards

Peachmelba