Hallo,
was kommt denn im try except als Fehlermeldung?
Delphi-Quellcode:
try
begin
IdSMTP.Send(Mes);
result:=true;
end;
except
begin
result:=false;
end;
end;
Solche Konstrukte sind meiner Meinung nach verantwortungslos.
Delphi-Quellcode:
try
begin
IdSMTP.Send(Mes);
result:=true;
end;
except
on e :
Exception do
begin
result := false;
MessageDlg(e.
Message,mtError,[mbOk],0);
// oder zumindest einen Eintrag in 'ner Log-Datei, einem Protokoll, ...
end;
end;
Auch in btn_AbgebenClick könnte das Abfangen einer
Exception hilfreich sein.
In SendMail werden nur Fehler beim
IdSMTP.Send(Mes);
abgefangen, aber letztlich ignoriert. Die Fehlerursache könnte aber durchaus auch z. B. beim
Attachment := TIdAttachmentFile.Create(Mes.MessageParts,Anhang[i]);
oder beim
IdSMTP.Connect;
oder beim
IdSMTP.Authenticate;
oder beim ... liegen.
Aus dem Code ist beim besten Willen nicht zu erkennen, was denn hier ggfls. falsch laufen könnte.