Enviar gran cantidad de emails con ASPEmail

[Hereje]

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!

[Hereje]

Si no me contestan porque creen que estoy por hacer spam, les cuento que es para enviar info sobre actualizaciones del sitio únicamente a los que quisieron recibirlas. El sitio es sobre una carrera en una universidad!

Si no es por eso, no hay problema y disculpen.

Hasta luego!