Thanks for the direction...after a lot of fumbling..this is what we came up
with...

Public Function ADLIST(DistName As String) As String
Dim strValue As Variant, EmailMe As String
Set getDn = GetObject("LDAP://CN=" & DistName & ",OU=Distribution
Groups,DC=gunnallen,DC=com")
strAllValues = getDn.getex("member")
For Each strValue In strAllValues
Set getDn2 = GetObject("LDAP://" & strValue)
strEmail = getDn2.getex("mail")
EmailMe = EmailMe & IIf(Len(EmailMe) = 0, "", ", ") &
strEmail(0)
Next
Set strAllValues = Nothing
Set strEmail = Nothing
ADLIST = EmailMe
End Function


Sue Mosher [MVP-Outlook] wrote:
CDO for Windows (which is what CDO.Message) implies cannot help you with this. Either use ADSI methods or CDO 1.21 or Redemption. The code sample at http://www.cdolive.com/cdo5.htm#DeleteDLMember shows one way of working with GAL DL members with CDO 1.21.

Greetings,
I am using CDO.Message to send email messages from my access application. I
[quoted text clipped - 12 lines]
much thanks
Teresa

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...g-vba/200606/1