Mailing-List con VSEmail2

Grazie al seguente script è possibile generare una mailig list tramite il componente VSEmail2.

<%

‘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

Set email=server.createObject(“VSEmail.SMTPSendMailEx”)

email.host=”smtp.mio_sito.it”

do while not(rs.eof)

email.BCCList.Add(rs(“nome”) &” “& rs(“cognome”),rs(“email”))

rs.movenext

loop

email.Sender.Name=”Carratta Andrea”

email.Sender.Address=”[email protected]

email.ReplyTo.Name=”Carratta Andrea”

email.ReplyTo.Address=”[email protected]

email.Body = “Testo della mail”

email.Connect

email.Send

email.Disconnect

set email = Nothing

‘Chiusura del database

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

%>

Il componente richiesto è scaricabile presso [url=http://www.nevrona.com/indy]http://www.nevrona.com/indy[/url]

I Video di HTML.it

Impostare la velocità di rete su uTorrent

In questo video è mostrato come configurare al meglio uTorrent, in base alla propria connessione ADSL. Per sfruttare al meglio […]