I am using VB - IIS application to write ASP pages.  One of the tasks I 
need to complete is to write mail messages that will send receipt 
verificaitons.  I've added the CDO 2000 (cdosys.dll) to my application and 
the mail messages are getting through without any problem...but the return 
receipts don't work...can anyone help....

My code looks like...

Dim objMailMsg As New CDO.Message
Dim conf As New CDO.Configuration

Set conf = objMailMsg.Configuration

objMailMsg.To = "debra.shaffer@t..."
objMailMsg.From = "Debra Shaffer<debra.shaffer@l...> ret=full"
objMailMsg.ReplyTo = "Debra Shaffer<debra.shaffer@l...>"
objMailMsg.Subject = "Testing Return Receipt"
objMailMsg.HTMLBody = "<b><i>" & Request.Form("suggestions") & "</i></b>"

'Message Delivery Notification
objMailMsg.MDNRequested = True
'Delivery Status Notification
objMailMsg.DSNOptions = cdoDSNSuccessFailOrDelay
conf.Fields(cdoDispositionNotificationTo) = "debra.shaffer@l..."
conf.Fields.Update
objMailMsg.Send

I've captured the file written out in the queue and it 
shows the cdoDispositionNotificationTo field, but I don't 
see anything showing the DSNOptions....and of course I'm 
not getting a delivery receipt from the receipient...

Would appreciate any help...
Thanks
Debra

I've been using s slightly different code without problems for the past
two years. See if that helps:

<!--METADATA TYPE=3D"typelib" 
UUID=3D"CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME=3D"CDO for Windows 2000 Library" -->
<!--METADATA TYPE=3D"typelib" 
UUID=3D"00000205-0000-0010-8000-00AA006D2EA4"
NAME=3D"ADODB Type Library" -->

<%
Set objConfiguration =3D CreateObject("CDO.Configuration")
Set objMessage =3D CreateObject("CDO.Message")
Set objFields =3D objConfiguration.Fields
With objFields
  .Item(cdoSendUsingMethod) =3D cdoSendUsingPort
  .Item(cdoSMTPServerPort) =3D 25
  .Item(cdoSMTPServer) =3D "yourserver.domain.com"
  .Item(cdoDispositionNotificationTo) =3D strSender
  .Item(cdoReturnReceiptTo) =3D strSender
  .Update
End With
With objMessage
  Set .Configuration =3D objConfiguration
  .From =3D strSender
  .To =3D strRecipient
  .Subject =3D "Hello World"
  .TextBody =3D "Thank you!"
  .MDNRequested =3D True
  .DSNOptions =3D cdoDSNFailure Or cdoDSNSuccess
  .Send
End With
%>

As you can see I am using a different order of the code and also the DSN
options are different. I believe the latter one was required because I
couldn't get it working otherwise but I can't remember since it is about
two years ago ;-)

HTH

<Siegfried />

> -----Original Message-----
> From: debra.shaffer@l...
[mailto:debra.shaffer@l...]
> Sent: Wednesday, May 22, 2002 6:24 PM
> To: ASP CDO
> Subject: [asp_cdo] CDO 2000 - return receipts
>
> I am using VB - IIS application to write ASP pages.  One of the tasks
I
> need to complete is to write mail messages that will send receipt
> verificaitons.  I've added the CDO 2000 (cdosys.dll) to my application
and
> the mail messages are getting through without any problem...but the
return
> receipts don't work...can anyone help....
>
> My code looks like...
>
> Dim objMailMsg As New CDO.Message
> Dim conf As New CDO.Configuration
>
> Set conf =3D objMailMsg.Configuration
>
> objMailMsg.To =3D "debra.shaffer@t..."
> objMailMsg.From =3D "Debra Shaffer<debra.shaffer@l...>
ret=3Dfull"
> objMailMsg.ReplyTo =3D "Debra Shaffer<debra.shaffer@l...>"
> objMailMsg.Subject =3D "Testing Return Receipt"
> objMailMsg.HTMLBody =3D "<b><i>" & Request.Form("suggestions") &
"</i></b>"
>
> 'Message Delivery Notification
> objMailMsg.MDNRequested =3D True
> 'Delivery Status Notification
> objMailMsg.DSNOptions =3D cdoDSNSuccessFailOrDelay
> conf.Fields(cdoDispositionNotificationTo) =3D
> "debra.shaffer@l..."
> conf.Fields.Update
> objMailMsg.Send
>
> I've captured the file written out in the queue and it
> shows the cdoDispositionNotificationTo field, but I don't
> see anything showing the DSNOptions....and of course I'm
> not getting a delivery receipt from the receipient...
>
> Would appreciate any help...
> Thanks
> Debra