problema con CDO.Message

[laudrup]

Hola
Estoy haciendo un sistema para enviar una serie de boletines y tengo un problema.
Lo que hago es mirar que boletines hay que enviar un dia concreto,y luego buscar los contactos a los que hay que enviarlo.
El caso es que si solo hay que enviar un boletin no hay ningun problema y envia todos los mails correctamente.Pero si es mas de uno,a la hora de enviar el segundo boletin me sale el siguiente error

CDO.Message.1 error '8004020d'


El error tengo claro lo que significa,pero he comprobado que los datos le llegan correctamente.El mail lo creo asi:

set Mail = Server.CreateObject("CDO.Message")
with mail
.From = mail_from
.To = RS("email")
.ReplyTo = "[email protected]"
if asunto_mail <> "" then .Subject = asunto_mail
.HTMLBody = cuerpo_final
.Send
end with
set Mail = nothing

Justo antes de empezar a crear el mail muestro por pantalla RS("email") y tiene el valor que toca,a que se puede deber ese error?
Gracias

[Muzztein]

que valor tiene mail_from???????

[laudrup]

Iniciado por Muzztein

que valor tiene mail_from???????

mail_from viene de la base de datos,lo obtengo de una consulta.

Pero del mail_from no se queja,el que da el fallo es el .To que dice que hay que asignarle un valor, y yo compruebo el valor que llega y es el correcto.No entiendo porque no lo asigna cuando al enviar el primero lo hace perfecto