errore invio email

[darlette]

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, 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

'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?

[DarioN1]

- se nella pagina c'è ON ERROR RESUME NEXT toglilo
- se usi hotmail come destinatario mail verifica che non vi sial il messaggio nella posta indesiderata

[darlette]

<% On Error resume next %> non è presente nella pagina, l'unica cosa che c'è nella pagina e che non ho scritto è :
<%@LANGUAGE="VBSCRIPT" %>

Lo script prende il destinatario dell'email dal modulo della pagina precedente, ed è diverso ogni volta, ho fatto diverse prove, nessuna con hotmail e poi cmq questo problema della posta indesiderata non dovrebbe sussistere.

[DarioN1]

Se non hai errore le mail vengon spedite , verifica i destinatari

[darlette]

non riesco a capire... l'email non arriva eppure apparentemente non ci sono errori.