Invio automatico mail

[ISE]

Ragazzi ho realizzato un semplicissimo form in ASP:

<%
nome = request.querystring("nome")
cognome = request.querystring("cognome")
localita = request.querystring("localita")
telefono = request.querystring("telefono")
email = request.querystring("email")
richiesta = request.querystring("richiesta")

mess = "Nome: " &nome& vbcrlf & vbcrlf &_
"Cognome: " &cognome& vbcrlf & vbcrlf &_
"Località: " &localita& vbcrlf & vbcrlf &_
"Telefono: " &telefono& vbcrlf & vbcrlf &_
"E-mail: " &email& vbcrlf & vbcrlf &_
"Richiesta: " &richiesta



Dim MiaMail

Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = email
MiaMail.To = "info@ermesweb.it"

MiaMail.Subject = "Richieste informazioni dal sito"
MiaMail.TextBody = mess


MiaMail.Send()
Set MiaMail = Nothing

%>

Volevo sapere come posso fare in modo che all'utente giunga una mail generata in automatico del tipo:
La vostra richiesta è stata inoltrata...ecc ecc

Grazie!!!

[Spyfil]

Dim MiaMail 

Set MiaMail = Server.CreateObject("CDO.Message") 
MiaMail.From = "info@ermesweb.it"
MiaMail.To = email  

MiaMail.Subject = "Richieste informazioni dal sito" 
MiaMail.TextBody = "La vostra richiesta è stata inoltrata...ecc ecc"


MiaMail.Send() 
Set MiaMail = Nothing

così dici che non va?

[ISE]

Originariamente inviato da Spyfil
[CODE]
MiaMail.Subject = "Richieste informazioni dal sito"
MiaMail.TextBody = "La vostra richiesta è stata inoltrata...ecc ecc"

Se scrivo così arriva a me "La vostra richiesta...".
MiaMail.TextBody = mess praticamente scrive nome,cognome,ecc ecc di chi compila il form....

[ISE]

Addirittura mi da errore...!!!

[asva]

applica il codice due volte ed invia due mail
distingui mittente e destinatario

<% 
nome = request.querystring("nome") 
cognome = request.querystring("cognome") 
localita = request.querystring("localita") 
telefono = request.querystring("telefono") 
email = request.querystring("email") 
richiesta = request.querystring("richiesta") 

mess = "Nome: " &nome& vbcrlf & vbcrlf &_ 
"Cognome: " &cognome& vbcrlf & vbcrlf &_ 
"Località: " &localita& vbcrlf & vbcrlf &_ 
"Telefono: " &telefono& vbcrlf & vbcrlf &_ 
"E-mail: " &email& vbcrlf & vbcrlf &_ 
"Richiesta: " &richiesta 



Dim MiaMail 

Set MiaMail = Server.CreateObject("CDO.Message") 
MiaMail.From = email 
MiaMail.To = "info@ermesweb.it" 

MiaMail.Subject = "Richieste informazioni dal sito" 
MiaMail.TextBody = mess 


MiaMail.Send() 
Set MiaMail = Nothing 



Dim MiaMail 

Set ReMiaMail = Server.CreateObject("CDO.Message") 
REMiaMail.From = "info@ermesweb.it" 
REMiaMail.To = email
REMiaMail.Subject = "Richieste informazioni dal sito" 
REMiaMail.TextBody = "La vostra richiesta è stata inoltrata...ecc ecc"
 


REMiaMail.Send() 
Set REMiaMail = Nothing 





%>

[ISE]

Funziona benissimo!

Grazie grazie grazie!

[asva]

prego

[shoutsrn]

ma perchè a me non funziona!!
Io ho una pagina asp javascript in cui ho copiato il codice di cui sotto sostituendo solo le mail di mittente e destinatario ed ho i seguenti requisiti di sitema:iis v5.1, win xp e outlook express di microsoft 2003.
Ho letto che forse serve un SMTP server??mmmm??

[cavicchiandrea]

Ma hai pubblicato la pagina in server dove è installato CDO.Message? O stai operando in locale?

[Roby_72]

Oltre al fatto che l'esempio in alto è in ASP VbScript non JScript...

Roby