Hola a todos!
Tengo una base de datos con el nombre y email de personas a las cuales les quiero enviar un Mail.
Veamos lo que me salió:
Código:
Dim grContactos
SQL = "SELECT Nombre, Email FROM Contactos" 'Por ejemplo
Set Tabla = Conexion.Execute(SQL)
grContactos = Tabla.GetRows
Tabla.Close
'Lo hago con getrows para que no sea tan enrrollado
Dim Mail
For I = 0 To UBound(grContactos, 2) 'Recorro todos los registros
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Hots = "smtp.midominio.com"
Mail.From = "[email protected]"
Mail.FromName = "Sergio"
Mail.Subject = "Hola " & grContactos(0,I)
Mail.Body = "Hola, tu email es: " & grContactos(1,I)
Mail.AddAddress grContactos(1,I), grContactos(0,I)
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write("ERROR (" & Err.Description & ")")
Else
Response.Write("OK")
End If
Set Mail = Nothing
Next
Todo funciona a la perfección!
El problema empieza cuando la cantidad de registros es mayor a 30, no lo envia por que dice que el servidor SMTP no da más!
Entonces pensé que tenia que darle más tiempo, le puse un bucle de 0 a 25000 al final de cada envio pero habrá enviado 5 mails más.
Que se puede hacer cuando la cantidad de envios es mayor a 5.000 ?
Espero no molestar, y que a alguien se le ocurra algo!
Un abrazo y hasta pronto!