Come spedire un’email con CDOSYS
13 Marzo 2016
Di seguito il codice html per l’immissione dei dati:
<form method="post" action="invia.asp"> E-mail: <input name="email" type="text" required><br> Messaggio: <textarea name="messaggio" rows="7" required></textarea><br><br> <input type="submit" value="invia"> </form>
Di seguito il file invia.asp che recupera i dati del form:
<% 'recupero le variabili del form email = request.form("email") messaggio = request.form("messaggio") sTo = "[email protected]" 'email del destinatario sFrom = email ' email del mittente sSubject = "messaggio dal sito www.esempio.com" 'qui va inserito oggetto del messaggio sMailServer = "smtp.aruba.it" 'server aruba sBody = messaggio 'qui va inserito corpo del messaggio 'creazione degli oggetti necessari Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing Response.write "messaggio inviato" %>