Hello,

I just converted from Exchange 5.5 to exchange 2k and my e-mail script
broke.  I was using CDO to retrieve the SMTP attribute:

objRecip.Resolve  
  If Err.Number = 0 Then
   Set objField = objRecip.AddressEntry.Fields(&H800F101E)
   'PR_EMS_AB_PROXY_ADDRESSES 
 	For Each v In objField.Value   
 		If Mid(v, 1, 4) = "SMTP" Then        
 			strEmail = v
 		End If 
 	Next


Does anyone have the equivilent for Exchange 2k / Active Directory?

Thank you,
Eli

Although my code looks a bit different it works here with Outlook 2002
SP2 and Exchange 2000 SP3:

Set objNewUser =3D objNewRecip.AddressEntry
Set objNewFields =3D objNewUser.Fields
Set objEMailAddresses =3D objNewFields.Item(PR_EMS_AB_PROXY_ADDRESSES)
If Trim(objEMailAddresses.Value) <> "" Then
	varArrayAddresses =3D objEMailAddresses.Value
	For intCounter =3D LBound(varArrayAddresses) To
UBound(varArrayAddresses)
		MsgBox varArrayAddresses(intCounter)
	Next
End If

<Cheers:Siegfried runat=3D"server" />

> -----Original Message-----
> From: Eli Schilling [mailto:ESchilli@t...]
> Sent: Monday, August 26, 2002 6:50 PM
> To: ASP CDO
> Subject: [asp_cdo] RE: How do I get the mail adress from exchange
2k/AD?
>
> Hello,
>
> I just converted from Exchange 5.5 to exchange 2k and my e-mail script
> broke.  I was using CDO to retrieve the SMTP attribute:
>
> objRecip.Resolve
>   If Err.Number =3D 0 Then
>    Set objField =3D objRecip.AddressEntry.Fields(&H800F101E)
>    'PR_EMS_AB_PROXY_ADDRESSES
>  	For Each v In objField.Value
>  		If Mid(v, 1, 4) =3D "SMTP" Then
>  			strEmail =3D v
>  		End If
>  	Next
>
>
> Does anyone have the equivilent for Exchange 2k / Active Directory?
>
> Thank you,
> Eli
>