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