Enviar correo despues de una hora

[[duilioisola]]

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;

[Casimiro Noteví]

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

[richy08]

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