Si no se especifica la configuración SMTP externa entonces utiliza el SMTP local de tu maquina. Yo tengo configurado el CDO.Message con la configuración de mi cuenta de correo, aunque luego el FROM le pongo la dirección que yo quiero y funciona.
Aprovechando este mismo hilo queria hacerles una consulta. Tengo montado un sistema de mailing con el cual realizo campañas.
El problema que tengo ahora es que mi base de datos a crecido mucho, y aquí el problema. Tengo que realizar un envio de quizas unos 5000 emails de golpe.
La aplicación que tengo recorre con un while la tabla de contactos en busca del email y envia el correo. Esta operación se puede demorar como unos 15 min. para enviar 600 emails.
Así pues habia pensado en utilizar un while para rellenar el mail.Bcc, pero no se que capacidad soporta el mismo.
Lo que quiero decir es que no se si puedo enviar un mail a través de CDO añadiendo por ejemplo 500 direcciones en el mail.From, quizas tenga alguna limitación y no pueda añadir más de 100 en un solo email.
Actualmente solo añado un email en el mail.From, pero si consigo añadir por ejemplo los 500 que decia reduciria enormemente el tiempo de ejecución.
Gracias a todos.
Código actual
Cita: while (Not rs3g.EOF)
set mail=server.CreateObject("CDO.Message")
mail.From= eMail
mail.To = rs3g("email")
mail.Subject = Asunto
if idForoSi="on" then
mail.HtmlBody = Msj_URL
else
mail.HtmlBody = Msj_sin_URL
end if
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
mail.Configuration.Fields.Update
mail.Send
set mail=nothing
Contador_emails = Contador_emails + 1
rs3g.Movenext
wend
rs3g.Close
set rs3g=nothing
La idea que tengo es:
Cita: Correos = ""
Correos = rs3g("email") & ";"
while (Not rs3g.EOF)
Correos = Correos & rs3g("email") & ";"
rs3g.Movenext
wend
set mail=server.CreateObject("CDO.Message")
mail.From= eMail
mail.To = "
[email protected]"
mail.Bcc = Correos
mail.Subject = Asunto
mail.HtmlBody = Texto mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXXXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXXX"
mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXX"
mail.Configuration.Fields.Update
mail.Send
set mail=nothing
rs3g.Close
set rs3g=nothing
A la espera de su respuesta, reciban un cordial saludo