Enviar correo despues de una hora
 

buenos tardes compañeros, tengo una duda les platico, tengo una aplicacion delphi que necesita enviar 343 correos, estos correos por lo regular va dirigido a dos correos (en algunas ocaciones van hasta a 5 direcciones), pero por restriccion del hosting no pueden salir mas de 200 direcciones por hora del correo, por lo cual necesito que la aplicacion se detenga al enviar el primer bloque y pasada la hora continue, tengo una idea de guardar en una tabla hasta donde se mando y despues de la hora segmentarlo para que asi se envie el segundo bloque esto con ayuda de un ttimer

la duda es que si al retrasar el ttimer esto no me generara algun tipo de error


gracias por cuaquier comentario

Hola richy08.

El echo de poner en la propiedad Interval del TTimer un valor de 1000*3600 (3600000) para que realize determinada tarea cada una hora, no te va a ocasionar ningún error.

Un saludo.

Otra opción es que cada correo se envíe un tiempo después del anterior, a una velocidad de 200 por hora.
En este caso cada correo se puede enviar cada aproximadamente 3 segundos (180/h)
Yo pondría el TTimer.Interval = 3000 (3 segundos) e iría avanzando sobre la tabla de correos no enviados.
Al quedarte 20 envíos de margen, puedes también enviar otros correos por otras vías.

Código Delphi [-]
OnTimer
var
   direccion : string;
begin
   // Deshabilito el timer por si tarda más de 3 segundos en ejecutarse el procedimiento
   Timer.Enabled := False;
   direccion := DameSiguienteDireccion;
   EnviarCorrero(direccion);
   Timer.Enabled := True;
end;

¿Y enviar un sólo email con todas las direcciones ocultas?

Gracias a todos por sus respuestas, probare para ver cual es la mejor opcion, el de enviar correos con copia oculta no me funcionara ya que cada uno de los correos que se envia es del balance de una propiedad, por lo cual cada casa tiene su balance

saludos