Pagina "invio.htm"
Pagina "mail.asp"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>
Al posto dicodice:<% 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>
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!
![]()

Rispondi quotando