TidSMTP и результат его работы!

← →
csr (2003-12-31 11:10) [0]

Здравствуйте господа!
Столкнулся с такой проблемой: необходимо после отправки письма, определись возвращенный числовой код. Например:
611 - HELO Command Failed
610 - CONNECT Command Failed
602 - Timeout
и т.д. по RFC ...
Дак вот, я пытаюсь отловить результат послыки письма так:

function TSMTPThread.SendMail:boolean;
begin
try
FSmtp.Connect;

FSmtp.Send(FMessage);
FSmtp.Disconnect;
Result := true;
except on e:exception do begin
FErrorStr := "Failed: "+e.message;
if FSmtp.Connected then try
FSmtp.Disconnect; except end;
Result := false;
exit;
end;
end;
end;

т.е. ловлю сообщение возникшего исключения. Но на практике этого не достаточно: не информативно получается! Необходим точный цифровой код результата отправки письма (который должен по-любому где-то возникнуть в результате выполнения процедуры FSmtp.Send(FMessage);).
Пож-ста, помогите решить эту проблему, если можете!

← →
csr (2003-12-31 14:38) [1]

Неужели никто не знает?

TidSMTP и результат его работы! Найти похожие ветки