Greetings,
I am using CDO.Message to send email messages from my access application. I
now
need to send email to existing distribution lists in our Global Address List.
However, our exchange server blocks sending to distribution list (i.e.
distribution list is named MyDistList and its email address is
) from SMTP email.

I have searched in vain for an example of VBA that will extract the email
addresses of members of a distribution list from the Global Address List with
a specific name. (I have found code that will use a DL in the contacts but
that doesn't help). I've searched at length thru slipstick, google, etc.
Can anyone help?

much thanks
Teresa

--
Message posted via http://www.officekb.com

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.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"tthomas" u7607@uwe wrote in message news:621bc3656ced8@uwe...
Greetings,
I am using CDO.Message to send email messages from my access application. I
now
need to send email to existing distribution lists in our Global Address List.
However, our exchange server blocks sending to distribution list (i.e.
distribution list is named MyDistList and its email address is
) from SMTP email.

I have searched in vain for an example of VBA that will extract the email
addresses of members of a distribution list from the Global Address List with
a specific name. (I have found code that will use a DL in the contacts but
that doesn't help). I've searched at length thru slipstick, google, etc.
Can anyone help?

much thanks
Teresa

--
Message posted via http://www.officekb.com

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