Allora ragazzi
guardate questi due codici.
Il primo funziona, il secondo no.
Facendo debug tutti i parametri vengono valorizzati correttamente dai dati del form, ma non mi arrivano email.
I due file si trovano sullo stesso sito, stessa cartella.
ARUBA
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
'* voce da modificare con il proprio indirizzo email
invioA = "ba5tardik@tiscali.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 = "emailmittente@technet.it"
'------------fine modifiche necessarie------------------
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
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
'* 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) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
response.Write("
"+.To+"|"+.Sender+"|"+.From+"|"+.Subject+"|"+.Text Body)
response.End()
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>
_________________________
CODICE MIO
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa
oggetto=request.Form("oggettotxt")
invioA=request.Form("emailtotxt")
invioDA=request.Form("emailtxt")
corpoMessaggio="Cognome: "+request.Form("cognometxt")+vbCrLf
corpoMessaggio=corpoMessaggio+"Nome: "+request.Form("nometxt")+vbCrLf
corpoMessaggio=corpoMessaggio+"CAP,Città: "+request.Form("cittatxt")+vbCrLf
corpoMessaggio=corpoMessaggio+"Indirizzo: "+request.Form("indirizzotxt")+vbCrLf
corpoMessaggio=corpoMessaggio+"Telefono: "+request.Form("telefonotxt")+vbCrLf
corpoMessaggio=corpoMessaggio+"Email: "+request.Form("emailtxt")+""
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 = invioA
.Sender = invioDa
.Subject = oggetto
.TextBody = corpoMessaggio
.Send
End With
'***********************************************
'****************** MAIN ***********************
'***********************************************
'call InviaEmail()
response.Redirect("msg_page.asp?msg=MAIL_OK")
%>
Rispondi quotando
