ricevuta di ritorno con cdo

[daduz]

ciao a tutti
ho questo codice ma se attivo le 4 righe alla fine per la notifica di ricezione non da errore ma la mail non viene inviata!!
come devo fare per avere la notifica di ricezione?
grazie della risposta


Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
Set ObjConfig = CreateObject("CDO.Configuration")

'Configurazione server smtp
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = mittente
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
ObjSendMail.Configuration.Fields.Update

ObjSendMail.To = destinatari
ObjSendMail.From = mittente
ObjSendMail.Subject = "subject here1..."
ObjSendMail.HTMLBody = "body here1..."

'ObjSendMail.fields("urn:schemas:mailheader:dispos ition-notification-to") = mittente
'ObjSendMail.fields("urn:schemas:mailheader:return-receipt-to") = mittente
'ObjSendMail.Fields.Update
'ObjSendMail.DSNOptions = 14

ObjSendMail.Send
Set ObjSendMail = Nothing

[daduz]

aiuto nessuno ha soluzioni ??

[daduz]

ho risolto, se a qualcuno può servire, ho solo tolto ObjSendMail.DSNOptions = 14 e funziona!

[Vincent.Zeno]

hai tentato a casaccio?

edit:
leggendo l'articolo
http://support.microsoft.com/kb/302839

.DSNOptions = cdoDSNSuccessFailOrDelay
.DSNOptions = 14

si intende che serve quando se ne chiede l'esito, non la lettura

[daduz]

cercavo la lettura, ho sbagliato pardon