SMTPsvg.Mailer para envios masivos

[fario13]

Hola,

Utilizo este componente para enviar emails, y me funciona si lo hago de uno en uno. Pero si hago un bucle para enviar un boletin a todos los usuarios, tras un tiempo de espera (algun email si que lo llega a enviar) me sale un mensaje de error, debido a tiempo de espera agotado. Os pongo el codigo que utilizo:

While Not rsdire.EOF
response.write(rsdire("dimail"))
response.End()
strDe = "[email protected]"
strPara = rsdire("dimail")
strAsunto = asunto
strMensaje = tablaconsu
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.RemoteHost = "mail.pescaplus.com"
objMail.FromAddress = StrDe
objMail.ClearBodyText
objMail.ClearRecipients
objMail.AddRecipient "Usuario", strPara
objMail.ContentType = "text/html"
objMail.Subject = strAsunto
objMail.BodyText = strMensaje
if objMail.SendMail then
menerr="El email ha sido enviado correctamente."
else
menerr="Ha ocurrido un error: " & objMail.Response
End If
Set objMail = Nothing
rsdire.movenext
wend

La cantidad de emails de este bucle no llega a 300, no me parecen excesivos. Podeis darme alguna solucion de configuracion? Preferiria no tener que enviarlos por lotes...

Gracias y un saludo

[fario13]

Como nadie dice nada y a mi no se me ocurre otra cosa al final lo voy a hacer por lotes, agrupando los emails de 50 en 50 por ejemplo. Quizas debi decir que la finalidad no era enviar Spam (estoy totalmente en contra) sino que era para enviar el boletin de novedades........

[gagarin]

Hola Fario:

Yo tengo el mismo problema que tu, no sé si exista algún otro método para hacer estos envíos yo lo que he hecho es modificar el servertimeout el punto es que si tarda al enviar los correos, pero de menos el servidor no se detiene hasta pasado X tiempo.

<% Server.ScriptTimeout =1000 %>

Esto es lo que uso pero ahí depende de cuantos correos se estén enviando y así pones 1000 o 2000 o lo que haga falta no sé si esa sea la mejor amnera pero a mi me funciona..
Saludos

[fario13]

Hola Gagarin

Una cosa que me pregunto: Si pones Server.ScriptTimeout =1000, durante ese tiempo que les pasa a los usuarios que estan por ejemplo actualizando sus datos simultaneamente mientras se estan enviando los emails? Se quedan bloqueados?

De todas formas creo por lo que he leido, que enviar los emails por lotes aunque es lo mas engorroso, tambien es lo mas seguro.

Un saludo

[gagarin]

Hola Fario:

El envío por bloques lo hace manual o se puede hacer con algún código o cómo?

[Shiryu_Libra]

estan utilizando servidor propio para enviar correos??

ya que si estan usando el SMTP, del servidor... deben cambiar el numero de correos enviados por conexion....

boton derecho Servidor Virtual SMTP
propiedades
pestaña MENSAJES
aqui podran cambiar los valores predeterminados

en mi caso, tengo valores predeterminados de a 20 correos por ves, y a 100 destinatarios por correo, con un limite de texto de 2048 Kb, y un tamaño de sesion de 10240 kb.... como dije predeterminados, no ocupo mas

a lo mejor la cuestion va por ese sentido...

tambien recuerden que si tienen antivirus que integren un StopScript, estos evitan el envio simultaneo de correos, tendrian que entrar a la configuracion de sus antivirus para verificar