Obtaining email addresses from Global Address List
Is this the only way ?????
And cdo isn't default installed with office, right ?
Are you sure that there isn't an other way ?
> You need to use CDO (see http://www.cdolive.com ) and AddressEntry CDO
> Use AddressEntry.Fields collection to grab either &H39FE001E property
> SMTP address) or PR_EMS_AB_PROXY_ADDRESSES property(&H800F101E) - an array
> all available addresses.
> Dmitry Streblechenko (MVP)
> OutlookSpy - Outlook, CDO
> and MAPI Developer Tool
> > Hello,
> > 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.deja.com/