Nel seguente script viene illustrato come realizzare un servizio di ML tramite il componente ASPEmail.
<%
'Connessione al database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mail.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open (strConn)
sql = "SELECT email, nome, cognome FROM partecipanti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
'Richiede l'installazione del componente aspEmail scaricabile da http://www.aspemail.com
set email = server.createObject("Persits.MailSender")
email.Host="smtp.propriositoweb.it"
email.From="mia_mail@propriositoweb.it"
email.FromName="proprio nome"
email.Subject="Titolo della mail"
email.Body="Il testo della mail"
email.AltBody="Testo alternativo al body"
email.IsHtml=false
email.Priority=1 ' 1 hight, 3 normal , 5 low
do while not(rs.eof)
email.AddAddress(rs("email"), rs("cognome") &" "& rs("nome") )
rs.movenext
loop
'Invio della mail
email.send()
set email = nothing
'Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>