Problemi invio mail da database

[mrstex]

Ho un problema ad inviare e.mail multiple con indirizzi presi da un database. Il mio codice è questo:

Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
--- HTML è dichiarato prima ---
Do while not RSSend.Eof
objMail.From = "redazione@brindisitg24.it"
objMail.To = RSSend("Mail")
objMail.Subject = "Newsletter BRINDISI TG 24"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send
Set objMail = nothing
RSSend.movenext
Loop

il primo indirizzo trovato nel DB va bene ma il browser mi da errore anche se il primo indirizzo viene usato!!

Spero qualcuno mi risponda!!!!

[Roby_72]

Dim objMail 
Set objMail = CreateObject("CDONTS.NewMail") 
--- HTML è dichiarato prima --- 
Do while not RSSend.Eof 
objMail.From = "redazione@brindisitg24.it" 
objMail.To = RSSend("Mail") 
objMail.Subject = "Newsletter BRINDISI TG 24" 
objMail.BodyFormat = 0 
objMail.MailFormat = 0 
objMail.Body = HTML 
objMail.Send 
RSSend.movenext 
Loop 
Set objMail = nothing

Distruggevi l'oggetto senza più ricrearlo.

Roby