Como envio mails a grupos?

[GSMDN]

Pues kiero enviar un mail aun grupo de personas cuyas direcciones tengo guardadas en un BD de Access, los metodos del objeto CDONTS.Newmail. Utilizo un bucle para recorrer las direcciones. El codigo es :

Server.ScriptTimeout = 5400
do while not rs.eof
direccion=rs("ts_mail")
set objmail=server.createobject("CDONTS.Newmail&q uot;)
with objmail
.from=rs("tm_de")
.to=direccion
.subject=rs("tm_titulo")
.importance=1
.mailformat=CDOMailFormatMIME
.body=rs("tm_mail")
end with
if vhtml=1 then
objOmail.bodyFormat = 0
else
objmail.bodyFormat = 1
end if
objmail.send
set objmail=nothing
rs.movenext
loop

Mi hosting tiene CDONTS y lo utilizo sin problema para enviar mails a una direccion o a varias a la vez. EL problema es q aki no puedo enviar un mail a todos porque revelaria las direcciones de otros usuarios, tengo que enviar uno a uno.

Alguien encuentra al gun error o conoce una solucion?

Gracias Maestros