| Inviare i dati di una form |
|
|
|
Di seguito il contenuto del file email.asp
<% 'Controlla invio If Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then Dim objMail, objConfig 'Crea l'oggetto email Set objMail = CreateObject("CDO.Message") 'Dimensiona l'oggetto configurazione Set objConfig = Server.CreateObject("CDO.Configuration") 'Imposta le configurazioni With objConfig 'Server SMTP di uscita .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxx" ' qui metti il tuo server SMTP 'Autentificazione .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'qui lascia così come è 'tuo smtp username .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxx" 'qui metti il tuo Username 'tua password .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx" 'qui metti la tua password '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 objMail.Configuration = objConfig 'Assegna all'oggetto le proprietà necessarie objMail.To = " Indirizzo e-mail protetto dal bots spam , deve abilitare Javascript per vederlo " '<---------- Mettere qui EMAIL Destinatario objMail.From = Request.Form("email") '<---------- Mittente objMail.Subject = Request.Form("oggetto") '<----------- Oggetto objMail.HTMLBody = Request.Form("messaggio") '<-------- Messaggio 'Invia l'email objMail.Send() Set objMail = Nothing Response.Write("Email inviata correttamente") Else %> <form name="formail" method="post" action="email.asp?invia=true"> <table align="center" cellpadding="3" cellspacing="1"> <tr> <td>Email</td> <td><input type="text" name="email" /></td> </tr> <tr> <td>Oggetto</td> <td><input type="text" name="oggetto" /></td> </tr> <tr> <td>Messaggio</td> <td><textarea name="messaggio"></textarea></td> </tr> <tr> <td colspan="2"> <input type="submit" value="invia" name="submit" /> </td> </tr> </table> </form> <% End If %> |
