Ich versende in meiner Software mit
SMTP meherere Emails mit großen Anhängen. Während ich diese versende, bleibt meine Software jedoch unbenutzbar und wird als "Not Responding" angezeigt. Die Emails werden zwar verschickt, ich kann aber z.B. keinen Pause Knopf betätigen.
Delphi-Quellcode:
procedure TForm1.sndButtonClick(Sender: TObject);
var i : integer;
begin
probar.Visible := true;
probar.Max := globalcnt;
for i := 1
to globalcnt -1
do
begin
if FileExists('
./temporary/'+ExtractFileName(opendiag.filename)+'
_'+Inttostr(i))
then
TIdAttachment.Create(email.MessageParts, '
./temporary/'+ExtractFileName(opendiag.filename)+'
_'+Inttostr(i));
EMail.Subject := '
Auto generated Message';
smtp1.Connect;
try
smtp1.Send(Email);
smtp1.Disconnect;
except on E:
Exception do
Errorlog.Lines.Insert(0, '
ERROR: ' + E.
Message);
end;
probar.StepIt;
eMail.MessageParts.Clear;
end;
end;
Was muss ich machen um meine Software auch während des Sendevorgangs benutzbar zu machen?