form contatti

[numapompilio]

sto provando ad utilizzare questi script per form mail


1

<%
Set link = CreateObject("CDONTS.Newmail")
link.From = request.form("email")
link.To = "dom@tiscali.it"
link.Subject = "FORM xxx.COM"
corpo = "MITTENTE: " & request.form("mittente") & vbCrLf &_
"AZIENDA: " & request.form("azienda") & vbCrLf &_
"INDIRIZZO: " & request.form("indirizzo") & vbCrLf &_
"TELEFONO: " & request.form("telefono") & vbCrLf &_
"MESSAGGIO: " & request.form("messaggio") & vbCrLf
link.body = corpo
link.Send
Set link = Nothing
%>


2

<%
Dim MiaMail, strIp
Set MiaMail = CreateObject("CDO.Message")
strIp = Request.ServerVariables("REMOTE_ADDR")



MiaMail.From = request.form("mittente")
MiaMail.From = request.form("azienda")
MiaMail.From = request.form("indirizzo")
MiaMail.From = request.form("telefono")
MiaMail.From = request.form("messaggio")



MiaMail.From = request.form("email")


MiaMail.To = "dom@tiscali.it"
MiaMail.Subject = "FORM xxx.COM"
MiaMail.TextBody = vbCrlf &_
vbCrlf &_
("Questa e-mail è stata inviata il: ") & Now() & vbCrlf &_
("da: ") & ("Mittente: ") & request.form("mittente") & vbCrlf &_
("INDIRIZZO: ") & request.form("Indirizzo") & vbCrlf &_
("AZIENDA: ") & request.form("azienda") & vbCrlf &_
("TEL: ") & request.form("telefono") & vbCrlf &_
("MESSAGGIO: ") & request.form("messaggio") & vbCrlf &_
("EMAIL: ") & request.form("email") & vbCrlf &_



("l'indirizzo IP è: ") & strIp & vbCrlf
'("data ed ora di invio: ") & ("Now()") & vbCrlf
MiaMail.Send()
Set MiaMail = Nothing
%>




3

<%
Request.Form("mittente")
Request.Form("azienda")
Request.Form("indirizzo")
Request.Form("telefono")
Request.Form("email")
Request.Form("messaggio")

Dim objEMail
Dim sMittente
Dim sDestinatario
Dim sOggetto
Dim sBody

sMittente = "FORM"
Sdestinatario = "dom@tiscali.it"
sOggetto = "FORM WWW.xxx.COM"
sBody = "MITTENTE: " & request("mittente") & VBCrLf
sBody = sBody & "AZIENDA: " & request("azienda") & VBCrLf
sBody = sBody & "INDIRIZZO: " & request("indirizzo") & VBCrLf
sBody = sBody & "TELEFONO: " & request("telefono") & VBCrLf
sBody = sBody & "EMAIL: " & request("email") & VBCrLf
sBody = sBody & "MESSAGGIO: " & request("messaggio") & VBCrLf

Set objEMail = Server.CreateObject("CDONTS.NewMail")

objEMail.From = sMittente
objEMail.To = sDestinatario
objEMail.Subject = sOggetto
objEMail.Body = sBody
objEMail.Send

Set objEMail = Nothing
%>



X tutti e 3 non si visualizzano errori .... ma l'email non arriverà mai.......

Sottolineo che siamo su Aruba e che se inserisco un indirizzo di dominio di aruba funziona .... in questo caso c'è tiscali....

come mi debbo comportare onde evitare di bypassare la pagina asp su altro dominio ?

fatemi sapere come posso risolvere la questione

saluti

[Roby_72]

Su Aruba devi usare CDOSYS quindi il secondo esempio.
Il mittente dell'email deve essere @dominio.it in cui risiede lo script.

Roby

[numapompilio]

X alcuni domini è come dici ma x certi domini sempre di aruba l'email , anche se su tiscali, arriva.