Wie versickst du die E-mails den? Mit der
Indy-Komponente? Wenn ja haben diese
Indy Komponenten ( meistens ) das Event "Workbegin", "Work" und "Endwork" ...
So hab ich das dann gemacht
Delphi-Quellcode:
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
progressbar1.Position := AworkCount;
end;
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
Progressbar1.Max := AworkCountmax;
end;
procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
Progressbar1.Position := 100;
Showmessage('emails wurden verschick')
Man macht es aber nicht mit der "idHTTP" sondern mit "IdSMTP"
http://www.delphi-library.de/topic_P...n_10361,0.html
Hoffe ich konnte dir weiter helfen