Zitat von
Sleepy179:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
begin
try
SendMail;
except
end;
end;
procedure TForm1.SendMail;
var myOutlook, mailitem: Variant;
begin
try
myOutlook := CreateOleObject('Outlook.Application');
[...]
except
on EOleSysError do begin
raise;
end;
end;
[...]
end;
Erst löst du den abgefangenen Fehler EOleSysError wieder aus (raise) und fängst andere gar nicht erst ab. Dann nimmst du ein weiteres try..except um die weitergeleiteten Fehler abzufangen...
Warum nicht gleich ein try..except ohne Einschränkungen oder Wiederauslösen des Fehlers in except?