errore invio email

[Rosyanne]

Buon giorno, chiedo aiuto a tutti coloro pratici nell'invio di email. Dareste uno sguardo a questo codice per vedere cosa ho sbagliato? La pagina di redirect viene chiamata come se non ci fossero errori, ma l'email non arriva.


<%
' queste sono tutte le variabili che servono

Dim strId
Dim strHotel
Dim strNome
Dim strCognome
Dim strVia
Dim strCitta
Dim strCap
Dim strProv
Dim strMittente
Dim strStato
Dim strTel
Dim strCell
Dim strPersone
Dim strBambini
Dim strArrivo
Dim strPartenza
Dim strSistemazione
Dim strTrattamento
Dim strQta
Dim strAltro

Dim strEmailBody
Dim strEmailA
Dim strOggetto

'questi sono tutti campi che mi vengono passati dal modulo della pagina precedente

strId = Request.Form("id_finale")
strHotel = Request.Form("hotel")
strNome = Request.Form("nome")
strCognome = Request.Form("cognome")
strVia = Request.Form("via")
strCitta = Request.Form("citta")
strCap = Request.Form("cap")
strProv = Request.Form("prov")
strMittente = Request.Form("email")
strTel = Request.Form("tel")
strCell = Request.Form("cell")
strStato = Request.Form("stato")
strPersone = Request.Form("num_persone")
strBambini = Request.Form("num_bambini")
strArrivo = Request.Form("arrivo")
strPartenza = Request.Form("partenza")
strSistemazione = Request.Form("sistemazione")
strTrattamento = Request.Form("trattamento")
strQta = Request.Form("qta_camere")
strAltro = Request.Form("altro")
strEmailA = Request.Form("email_a")
strOggetto="Richiesta disponibilità camere"


'creo il corpo dell'email
strEmailBody = strEmailBody & "Nome:" &strNome&""& vbCrLf
strEmailBody = strEmailBody & "Cognome:" &strCognome&""& vbCrLf
strEmailBody = strEmailBody & "Via:" &strVia&""& vbCrLf
strEmailBody = strEmailBody & "Città:" &strCitta&""& vbCrLf
strEmailBody = strEmailBody & "Prov:" &strProv&""& vbCrLf
strEmailBody = strEmailBody & "Cap:" &strCap&""& vbCrLf
strEmailBody = strEmailBody & "Stato:" &strStato&""& vbCrLf
strEmailBody = strEmailBody & "Tel:" &strTel&""& vbCrLf
strEmailBody = strEmailBody & "Cell:" &strCell&""& vbCrLf
strEmailBody = strEmailBody & "Email:" &strMittente&""& vbCrLf
strEmailBody = strEmailBody & "Persone:" &strPersone&""& vbCrLf
strEmailBody = strEmailBody & "Bambini:" &strBambini&""& vbCrLf
strEmailBody = strEmailBody & "Arrivo:" &strArrivo&""& vbCrLf
strEmailBody = strEmailBody & "Partenza:" &strPartenza&""& vbCrLf
strEmailBody = strEmailBody & "Sistemazione:" &strSistemazione&""& vbCrLf
strEmailBody = strEmailBody & "Trattamento:" &strTrattamento&""& vbCrLf
strEmailBody = strEmailBody & "Altro:" &strAltro&""& vbCrLf


Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.From = strMittente
objEMail.To = strEmailA
objEMail.Subject = strOggetto
objEMail.Body = strEmailBody
objEMail.Send
Set objEMail = Nothing
Response.Redirect "richiesta_right.asp"
%>

perche' non funziona? :dipser:

 

[PoLe]

Ciao Rosy!

A prima vista il codice sembra il corretto (non avendo la componente CDONTS installata non posso verificare), ma credo di aver capito comunque perchè non funziona

Sostituisci la parte in rosso con quella in blu:

<%
...
Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.From = strMittente
objEMail.To = strEmailA
objEMail.Subject = strOggetto
objEMail.Body = strEmailBody
objEMail.Send
Set objEMail = Nothing
Response.Redirect "richiesta_right.asp"
%>
<script type='text/javascript'>
location.href('richiesta_right.asp')
</script>

Fammi sapere!
:byebye:

 

[lukeonweb]

prova con cdosys

http://www.aspcenter.net/articolo.asp?id=75
http://www.aspcenter.net/articolo.asp?id=76