I currently am running Exchange Server with no more than 15 Global
Addresses. Each account has an Exchange account and a SMTP email
account associated with it. Now, I need to go though all of the address
lists and find a certain email address.

I have the following code that gets all address lists and reviews each
entry:

  Set out = CreateObject("Outlook.Application")
  Set mapi1 = out.GetNameSpace("MAPI")

  List1.AddItem mapi1.AddressLists.Count
  For ctrlists = 1 To mapi1.AddressLists.Count
    List1.AddItem mapi1.AddressLists(ctrlists).Name
    Set a = mapi1.AddressLists(ctrlists)

    Set oAdrEntries = a.AddressEntries
    For Each oAdrEntry In oAdrEntries
        List1.AddItem "   " & oAdrEntry.Type & " " & oAdrEntry.Name&
        _ "-" & oAdrEntry.address
    Next
  Next

What I get is a list like:
"EX" "testname" "/o=Company/ou=Domain/cn=Recipients/cn=gsnow"

This entry does have a smtp address associated with it as well though,
and I can not get to it.

Any ideas?

--

Advantrics LLC
www.advantrics.com

Sent via Deja.com
http://www.*-*-*.com/

And cdo isn't default installed with office, right ?

Are you sure that there isn't an other way ?

Thanks
Georgios

const PR_DEFAULT_ADDRESS = $39FE001E;
var pProp : PSPropValue;
...
if S_OK = HrGetOneProp(AddrEntry.MAPIOBJECT, PR_DEFAULT_ADDRESS, pProp) then
begin
  strEMail := pProp.Value.lpszA;
  MAPIFreeBuffer(pProp);
end;

CDO is not installed by default by Outlook 2000 unless you upgrade from Outlook
97/98. You can however distribute and install CDO:
http://www.microsoft.com/exchange/downloads/CDO.htm

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy  - Outlook, CDO
and MAPI Developer Tool