codice:
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "192.168.0.1"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
'* voce da modificare con il proprio indirizzo email
'invioA = "info@assoluto.it"
'invioA = "zseven@libero.it"
'invioA = "guidozagarola@lafer.net"
invioA = "capante@tele2.it"
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
'invioDa = "info@assoluto.it"
invioDa = "ffiore@ttautointesa.net"
With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDA
.Bcc = ""
.Sender = invioDa
.Subject = "Comunicazione Cliente"
.TextBody = ""
.HTMLbody = html
.Send
End With
%>
Come vedi ho fatto diversa prove con diversi miei indirizzi.
Quello che adesso è indicato relativo a tele2 è quello che mi da problemi.
Grazie