¿Que tal amig@s?
Estoy desarrollando una aplicación en la que se pretende enviar una serie de news a un listado de emails clasificados por categorias pertenecientes a la BD de clientes de una empresa...
El componente a utilizar es el ASPEmail que como tod@s sabemos incorpora un metodo de envio especifico para estas tareas 'SendToQueue'... la cuestión es que el servidor que nos ofrece el hosting (Arsys) ha "capado" el componente 'con la escusa de evitar el Spam' de manera que empleando este metodo 'SendToQueue' en el momento que encuentra un email cuyo dominio no existe o esta mal escrito p.e. sin .com o sin @ interrumpe inmediatamente la cola y el resto de mensajes no son enviados...
(Como en otras muchos aspectos me vuelve a parecer deficitario el servicio de este proveedor de hosting)
La cuestión es:
Habrá que enviar en ocasiones emails a unos 2000 clientes (con sus lógicas aprobaciones previas) ¿alguien tiene alguna experiencia similar?
¿empleando el método 'Send' será la aplicacion capaz de procesar tantos emails sin afectar al rendimiento de la página?
'porción del codigo:
While ((Repeat2__numRows <> 0) AND (NOT rs_mail.EOF))
email = CStr((rs_mail.Fields.Item("mail").Value))
'cuerpo del mensaje
cuerpo = "cuerpo del mensaje"
Set lista = Server.CreateObject("Persits.MailSender")
lista.Host = "smtp.midominio.com"
lista.From = "
[email protected]"
lista.FromName = "cliente"
lista.AddAddress email
lista.Subject = "Lista de correo"
lista.Body = cuerpo
lista.isHTML = True
On Error Resume Next
lista.SendToQueue 'bueno no hay mas remedio qu emplear Send
If Err <> 0 Then
Response.Write("Se ha producido un error:<br> "& Err.Description)
End If
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rs_mail.MoveNext()
Set lista = Nothing
Wend
...
Perdón por lo extenso del mensaje. Gracias.