Is that Redemption code? If yes, have you tried to read teh
AddressEntry.SmtpAddress property?
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Kalyan" <Kalyan@discussions.microsoft.com> wrote in message
news:3C7471AD-1531-4BB8-BF61-2810D72D1BC7@microsoft.com...
> Hi,
> I'm trying to get the email address of an exchange contact added to PAB
> DL.(in vbsript webapplication client code)
> Environment: VBScript(Webapplication), Outlook 2003, IE7
> Following is what required.
> 1. Add a exchange contact to PAB contact list.
> 2. Create a PAB distribution list(DL) and select the contact created
> above(step 1) as member of this DL.
> 3. Expand DL and read the display Name and email address for each contact.
> '''''''''Code snippet starts'''''''''''''''''''''''''''
> set dlEntries = DLEntry.Members
> dlCount = dlEntries.Count
> for dlIndx = 1 to dlCount
> if dlEntries(dlIndx).DisplayType = 1 Or
> dlEntries.item(dlIndx).DisplayType = 5 then
> EnumerateDL2003 dlEntries(dlIndx), mode
> elseif dlEntries.item(dlIndx).DisplayType = 0 And
> dlEntries.item(dlIndx).Type = "SMTP" then
> email1 = dlEntries.item(dlIndx).Address
> dispName = dlEntries.item(dlIndx).Name
> else
> email1 = dlEntries(dlIndx).Fields(&H39FE001F)
> email2 = dlEntries(dlIndx).Address
> dispName = dlEntries(dlIndx).Name
> end if
> '''''''''Code snippet ends'''''''''''''''''''''''''''
>
> In the else part above I'm trying to read the contact(step 1) email
> address.
> both email1 doesn't gives a value and email2 gives in x400 format like
> /o=ML/ou=Second Administrative Group/cn=Recipients/cn=thomas
> Other contact types are working fine with this in extracting name and
> emailid
>
> Could anybody help on this?
>