return-receipt med CDO mail

Hejsa ekspeter,

Jeg vil gerne have muligheden for at en bruger selv kan vælge om han/hun vil modtage en kvittering og eller en notification på om mailen er kommet frem.. Jeg har brugt nedenstående og så indsat en if, men ligegyldigt hvad man vælger anmoder den altid om at sende en kvittering når man modtager.??? jeg har enda prøvet at helt fjerne disse to med ' - hvor den så stadig anmoder om en kvittering???

if Upload.form("Dispositionnotification") = "yes" then
    .fields("urn:schemas:mailheader:disposition-notification-to") = clientzoologindata("Ubusinessemail")
end if

if Upload.form("addReturnReceipt") = "yes" then
    .fields("urn:schemas:mailheader:return-receipt-to") = clientzoologindata("Ubusinessemail")

############## HELE KODEN FORNEDEN ###########################


Dim iMsg
Dim iConf
Dim Flds
Dim strtext

set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")

Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = clientzoosettings("SSsmtpserver") 'ToDo: Type a valid SMTP server name.
    .Update
End With

strtext  = standardtext

With iMsg
    Set .Configuration = iConf
    .To         = "steinmetz@city.dk"  'ToDo: Type a valid e-mail address.
    .From         = clientzoologindata("Ubusinessemail") 'ToDo: Type a valid e-mail address.
    .Subject     = insertheadline
    .TextBody     = strtext

if Upload.form("Dispositionnotification") = "yes" then
    .fields("urn:schemas:mailheader:disposition-notification-to") = clientzoologindata("Ubusinessemail") 'ToDo: Type a valid e-mail address.
end if

if Upload.form("addReturnReceipt") = "yes" then
    .fields("urn:schemas:mailheader:return-receipt-to") = clientzoologindata("Ubusinessemail")  'ToDo: Type a valid e-mail address.
end if

    .DSNOptions = cdoDSNSuccessFailOrDelay
    .DSNOptions = 14
    .fields.update
    .Send
End With