Hallo und willkommen in der
DP.
Bitte benutze die Delphi-Tags, dann sieht der gepostete Code auch so aus:
(ich habe mir erlaubt, den Code auch noch entsprechend einzurücken)
Delphi-Quellcode:
try
SMTP.Send(IdMsgSend);
DebugDatei('
Mail versendet');
finally
if SMTP.Connected
then
SMTP.Disconnect;
DebugDatei('
Mail wurde nicht versendet');
end;
1. Im Fall der Fälle wird keine Debug-Meldung abgesetzt!
Nämlich, wenn
SMTP.Send einen Fehler bringt und
SMTP.Disconnect einen Fehler bringt.
2. Wird die Mail korrekt versendet, steht in deinem Debug:
Code:
Mail versendet
Mail wurde nicht versendet
3. Da du nicht verrätst, wie die Properties der Komponenten eingestellt sind (
SMTP, IdMsgSend), ich aber mal unterstelle, dass es sich hier um TIdSMTP und TIdMessage handelt, kann dir hier auch niemand bei deinem Problem helfen.
cu
Oliver