Enviar Mail con Indy + mostrar avance progressbar

[oscarnoe]

Hola amadis,

Coloca un idantifreeze en el form, ademas deberias usar los eventos onStatus (para comprobar el tipo de accion realizada), onWork, onWorkBegin y onWorkEnd de TIdsmtp, para implementar la barra de progresos.
Lo ideal seria crear un form aparte que crees tu dinamicamente y que tenga ya los eventos preparados para el idSmtp, solo asignar el idSmtp y listos.

Espero que te sea de ayuda.

Oscar Noe

[molinero1]

Hola, he intentado servir tus lineas de codigo, he comentado la linea de
TIdAttachment.Create(mail.MessageParts, 'C:\adjunto.txt');
y he cambiado --> Recipients[0].Address := <-- a la direccion de correo que queria enviar el mail y me dice que Socket Error # 11004. Alguien sabe como solucionar el error?