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"
%>