Creare una mailing-list utilizzando un database

Utilizzando un database, è possibile creare una mailing-list utilizzando questo semplice codice:

<%

'Mi collego al db ed estraggo gli indirizzi email

Dim rs, conn, sql

Set rs = Server.CreateObject("ADODB.Recordset")

conn = "DSN=nomeDSN;"

sql = "SELECT email FROM tabella"

rs.Open sql, conn

'Inserisco dentro la variabile bcc tutti i destinatari

x = 0

do until rs.eof

   x = x + 1

   if x = 1 then

    bcc = rs("email")

  else

    bcc = bcc & ", " & rs("email")

  end if

rs.moveNext

loop

rs.close

Set rs = Nothing

'Invio l'email

Dim miaMail

Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "mittente@della.mail"

miaMail.To = "destinatario@della.mail"

miaMail.bcc = bcc

miaMail.Subject = "Oggetto della mail"

miaMail.BodyFormat = 0

miaMail.MailFormat = 0

miaMail.Body = "Testo della mail"

miaMail.Send

Set miaMail = Nothing

%>

Utilizzando .bcc eviteremo di "intasare" il server di email (pensate ad un database con più di 1000 email!)