Mailing List con ASPEmail

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=”[email protected]

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

%>

I Video di HTML.it

Intel, nexus TV e Intel Real Sense

Con Francesco Baldassarri scopriamo le novità che dell e Google stanno mettendo sul mercato. Il tablet che integra il sistema […]