hi,
i changed the code as follows:
procedure TMailer.SmtpClientRequestDone;
function isError : boolean;
begin
result := false;
if ((Error 399) and (Error 600)) or (error = 1) then result :=
true;
if result then if assigned(FOnError) then FOnError(FSmtp.ErrorMessage);
On Jan 7, 2008, at 06:56, Wilfried Mestdagh wrote:
You call RSet if you have an error. If you have an error just call
Abort
and try later again. Also check on any error, not only between those
values:
if Error 0 then begin
FSmtp.Abort;
SetSomeRetryMechanism; // retry with a timer