du hast doch schon Try zund execptr drinne musst es nur verwenden!
Delphi-Quellcode:
try
smtp.connect;
Showmessage('
VErbindung steht!');
except
showmessage('
Fehler @ connect');
end;
try
SMTP.Send(IdMessage1);
ShowMessage('
Mail versendet')
except
ShowMessage('
Fehler beim Versenden');
end;
if smtp.connected
then smtp.disconnect;
Hinweis: Die
Exception wird standartmäßig nur zur Laufzeit und nicht im DEBUG Modus angezeigt, bzw es kommt die normale
Indy Execption
mfg r