Estuve buscando y buscando por el foro, y no he encontrado nada que se refiera al envio de emails con progressbar con archivos adjuntos.
He notado que el IdSMTP, tiene estos eventos:
Código Delphi
[-]
procedure TGaleria.IdSMTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
procedure TGaleria.IdSMTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
procedure TGaleria.IdSMTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
Podrían servirme para incrementar un progressbar a medida que se envia el archivo adjunto?. En mi caso, siempre se envia un solo archivo adjunto (ZIP).
Saludos
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;