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
Rispondi quotando
??
