<% ' Controlla invio if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then Dim objMail, objConfig ' Crea l'oggetto email Set objMail = Server.CreateObject("CDO.Message") ' Dimensiona l'oggetto configurazione Set objConfig = Server.CreateObject ("CDO.Configuration") ' Imposta le configurazioni With objConfig ' http://FormMail.aruba.it/cgi-bin/FormMail.pl method=post ' ATTENZIONE! Usare il proprio indirizzo di server email! ' E' FONDAMENTALE per l'invio della email .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 objMail.Configuration = objConfig ' Assegna all'oggetto le proprietà necessarie objMail.From = Request.Form("email") ' Mittente objMail.To = "info@anni60.net ' Destinatario 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 " &_ "dall'indirizzo indicato: " &_ Request.Form("email")) else %>