Home + Webmaster + Script + Script ASP + Email + Inviare e-mail da una form

Inviare e-mail da una form

Questo script genera un semplice form per spedire e-mail:

<html> <body> 
<%
If request("Button")="Invia" then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=request("Address")
CorpoMessaggio="Grazie" & request("Nome") 
& request("Cognome") & "per aver letto il mio 
articolo"
objMail.Body=CorpoMessaggio
objMail.To="DESTINATARIO"
objMail.Subject="OGGETTO_MAIL"
objMail.Send
set objMail = nothing
response.write "E-mail Inviata"
else
%> 
<form action="FormMail.asp" method="POST" 
name="CDOEMAIL">
Nome: <input type="text" size="20" name="Nome"><br>
Cognome:<input type="text" size="20" name="Cognome"><br>
E-mail: <input type="text" size="20" name="Address"><br> 
<input type="submit" name="Button" value="Invia"> 
</form> 
<%
End if
%> 
</body> </html>