Salve, ho questo script.




invioA = Request.Form("email")






invioDa = "info@aaa.it"




nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")




FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT




DIM iMsg, Flds, iConf


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields




Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0


Flds.Update


With iMsg
Set .Configuration = iConf
.To = Request.Form("email")
.From = "info@aaa.it"
.Sender = Request.Form("email")
.Subject = Request.Form("nwsubject")



.....

Come possiamo aggiornare ma soprattutto cosa aggiungere x far inviare la notifica di lettura ?

Flds(cdoDispositionNotificationTo) = "info@aaa.it"


Ancora notizie.

Grazie.