Need to extract email addresses from Global Address List Distribution LIst

[tthomas]

Greetings,
I am using CDO.Message to send email messages from my 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
My********@mycompany.com) 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.accessmonster.com

[pietlinden]

Try the Outlook NG...

[tthomas via AccessMonster.com]

Found an amazing simple solution after a lot of dead ends and bad code...
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=yournamehere,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
tthomas wrote:

Greetings,
I am using CDO.Message to send email messages from my 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
My********@mycompany.com) 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 AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200606/1