Hola Aleman
No tengo la respuesta al problema que planteás, pero quizá un par de cambios al código te permitan aumentar la eficiencia del mismo, y te funcione hasta que tengas unos... 100.000 ??
cuerpo= cuerpo & Rsmails.fields(6)
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.From = "
[email protected]"
myCDONTSMail.To = "
[email protected]"
myCDONTSMail.Subject = rsMails.fields(1)
myCDONTSMail.BodyFormat = 0
myCDONTSMail.MailFormat = 0
myCDONTSMail.Body = cuerpo
do while not RsUsuarios.EOF
cantMails = cantMails + 1
email = ""
for i = 1 to 20
email = email & RsUsuarios("email_address") & ";"
RsUsuarios.movenext
Next
myCDONTSMail.Bcc = email
myCDONTSMail.Send
loop
Set myCDONTSMail = Nothing
Lo único que cambia de un mail a otro es el destinatario de la copia oculta ¿cierto?
El "From", el "To", el "Subject", el "BodyFormat", el "MailFormat" y el "Body" son el mismo para los 10.000 usuarios.
Entonces definilos sólo una vez, no 10.000 veces.
Estás enviando 1 mail a cada usuario. Si usás el Bcc, ¿por qué no enviás un mail cada 20 usuarios?
Esas son las dos modificaciones que hice al código.
Así será mucho más eficiente, y te solucionará el problema por un tiempo.
Espero que te sirva
Suerte ;)
Daniel Rey