Inviare email tramite lista da database

Questo script mostra come collegarsi ad un database e spedire una e-mail agli indirizzi presenti in una certa tabella:

'connessione al database
Set objConn = Server.CreateObject("ADODB.Connection")
objRS = "dsn=Database_Nominativi" 
objConn.Open objRS
Set RSEmail=objConn.Execute("Select E-mail From Nominativi") 
'loop per prendere tutte le mail nella tabella
Do While not RSEmail.eof 
'invio e-mail
Set objMail = Server.CreateObject("CDONTS.NewMail") 
objMail.From="INDIRIZZO_MITTENTE" 
objMail.To=rsEmails("EmailAddress") 'Indirizzo del destinatario 
estratto dal database 
objMail.Subject="OGGETTO_DELLA_MAIL" 
objMail.Body="TESTO_DELLA_MAIL" 
objMail.importance=0 
objMail.Send
Set objMail = nothing 
rsEmail.movenext 
loop 
set rsEmail = nothing 
objConn.close 
Set objConn = nothing