Kvittering med CDOSYS

Hejsa eksperter.

Jeg har et scritp som sender mails via CDOSYS, hvilket virker helt perfekt.

Men nu vil jeg dog gerne have muligheden for at kunne modtage en kvittering når mailen kommer frem.

Jeg har lavet ændringen forneden, men det virker bare ikke???

Håber der er nogle der kan hjælpe:

Set objEmail = CreateObject("CDO.Message")

objEmail.From         = sendfromthismail
objEmail.To         = sendtothisemail
objEmail.Bcc        = sendtoCC
objEmail.Cc            = sendtoBCC
objEmail.Subject     = insertheadline
objEmail.Textbody     = standardtext

if Count>0 then
  objEmail.AddAttachment includethisfile
end if

if Upload.form("Sfilename") <> "" then   
objEmail.AddAttachment Upload.form("Sfilename")
end if

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = thesettings("SSsmtpserver")
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

if Upload.form("addReturnReceipt") = "yes" then

    objEmail.fields("urn:schemas:mailheader:disposition-notification-to") = sendfromthismail 'ToDo: Type a valid e-mail address.
    objEmail.fields("urn:schemas:mailheader:return-receipt-to") = sendfromthismail  'ToDo: Type a valid e-mail address.

    objEmail.DSNOptions = cdoDSNSuccessFailOrDelay
    objEmail.DSNOptions = 14
    objEmail.fields.update

end if

objEmail.Send