Outlook Distribution

[ry94080]

Hi all,

Is there a way to pull the members of an Outlook global distribution list via Access VBA?

[SamT]

Moderator Bump

[PhilS]

Is there a way to pull the members of an Outlook global distribution list via Access VBA?

Yes, sure. Here is some code to retrieve the members from all distribution lists in your default contacts folder.


Public Sub PrintContactLists()

Dim app As Outlook.Application
Dim distListItems As Outlook.Items
Dim distList As Outlook.DistListItem
Dim members As String
Dim i As Long

Set app = New Outlook.Application

Set distListItems = app.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Restrict("[MessageClass]='IPM.DistList'")
For Each distList In distListItems
Debug.Print "Name: " & distList.DLName
Debug.Print "Number of Members: " & distList.MemberCount
For i = 1 To distList.MemberCount
members = members & distList.GetMember(i).Name & ", "
Next
Debug.Print "Members:" & members
members = ""
Next distList

Set distList = Nothing
Set distListItems = Nothing

End Sub