Pagina "invio.htm"
codice:
<html>
<head>
<title>invio_mail_asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="90%">
<tr>
<td width="100%">
<form name="form1" method="post" action="mail.asp">
<font face="Verdana" size="1">Invio di mail da parte dell'utente che visita
il sito, utilizzando ASP</font></p>
<table width="622" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="162"><font face="Verdana" color="#000080" size="1">Il tuo Nome:</font></td>
<td width="512">
<font face="Verdana" size="1">
<input type="text" name="nome" size="82">
</font>
</td>
</tr>
<tr>
<td width="162"><font face="Verdana" size="1" color="#000080">Invia a</font></td>
<td width="512">
<font face="Verdana" size="1">
<input type="text" name="A" size="63">
<font color="#000080">email destinatario</font></font></td>
</tr>
<tr>
<td width="162"><font face="Verdana" size="1" color="#000080">il
tuo indirizzo e-mail:</font></td>
<td width="512">
<font face="Verdana" size="1">
<input type="text" name="email" size="63">
</font>
</td>
</tr>
<tr>
<td width="162"><font face="Verdana" size="1" color="#000080">Oggetto</font></td>
<td width="512">
<font face="Verdana" size="1">
<input type="text" name="Oggetto" size="93"></font></td>
</tr>
<tr>
<td width="162"><font face="Verdana" size="1" color="#000080">testo:</font></td>
<td width="512">
<font face="Verdana" size="1">
<textarea name="mex" rows="5" cols="57" wrap="VIRTUAL"></textarea>
</font>
</td>
</tr>
</table>
<font face="Verdana" size="1">
<input type="submit" name="Submit" value="Invia al webmaster">
<input type="reset" name="reset" value="Cancella">
</font>
</p>
</form>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
Pagina "mail.asp"
codice:
<%
Dim MiaMail
Set MiaMail = CreateObject("CDO.Message")
'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
'Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' Assegna le configurazioni
Set MiaMail.Configuration = objConfig
MiaMail.From = request.form("email")
MiaMail.To = request.form("A")
MiaMail.Subject = request.form("Oggetto")
MiaMail.TextBody = request.form("mex")
MiaMail.Send()
Set MiaMail = Nothing
%>
<html>
<head>
<title>inviata</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<p align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000080">Caro utente
<%Response.Write(request.Form ("nome"))%> (questo è il tuo indirizzo mail che hai
inserito:<%Response.Write(request.Form ("email"))%>)
Hai scritto questo messaggio con oggetto:
<%Response.Write(request.Form ("Oggetto"))%>
a: <%Response.Write(request.Form ("A"))%>
</font></p>
<div align="center">
<center>
<table width="400" border="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td>
<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000080">Il Messaggio è:
<%Response.Write(request.Form ("mex"))%>"</font></div>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000080">Torna a trovarci!
</font></p>
<font color="#000080"> </font> </p>
</body>
</html>
Al posto di
smtp.aruba.it
metti il tuo smtp
per esempio:
smtp.nomedeltuositoweb.it
Ora modificalo secondo le tue esigenze
E comunque la prossima volta cerca di sforzarti a fare una ricerca sul forum o con San Google!
Permessi di invio
Rispondi quotando