So heute habe ich mal etwas schweres, woran ich scheitere.
Also ich habe ein Programmm, welches Emails verschickt.
So jetzt kann ich da mehrere Emails angeben, da ich all meinen Kollegen meine Ergebnisse mitteilen muss.
Das macht die Sache natürlich leichter mit meinem Programm.
Dazu sei gesagt, das Programm läuft wunderbar.
Jetzt hab ich nur das Problem, wenn ich jetzt 10 EMail adressen angebe und auf Senden Klicke, dann hängt sich das Programm auf und ich muss warten bis es fertig geschickt hat.
Das ist natürlich sehr unschön.
Deswegen habe ich mir gedacht, gut baue ich Threads ein, damit das Programm nicht hängen bleibt und ich mir den Fortschritt in ner Progressbar anzeigen lassen kann.
Denn i mom ist es so, das die Progressbar erst ganz leer ist und wenn die Emails gesendet wurden, dann aufeinmal ganz voll ist.
Und ich möchte natürlich, das mir der Fortschritt zeitnah angezegt wird.
Jetzt würd eich einfach mal gerne wissen wie ich denn jetzt die Schleife einbaue.
Das hier ist mein Code:
Delphi-Quellcode:
begin
repeat
with idMessage1 do
begin
Body.Assign(Memo2.Lines);
From.Text :=(LabeledEdit1.Text);
Subject :=(Edit1.Text);
Recipients.EMailAddresses := Memo1.Lines.Strings[i];
if Radiobutton1.Checked = true then
Priority:= mpHigh;
if Radiobutton1.Checked = true then
Priority:= mpNormal;
if Radiobutton1.Checked = true then
Priority:= mpLow;
CCList.EMailAddresses:='';
BCCList.EMailAddresses:='';
end;
with idSMTP1 do
begin
Username:=LabeledEdit1.Text;
Password:=Maskedit1.Text;
Host:=LabeledEdit3.Text;
Port:=25;
Connect;
Send(idMessage1);
Disconnect;
end;
i := i+1;
until i = Memo1.Lines.Count ;
end;
Wäre euch wirklich sehr dankbar