Форум: "Сети";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];
Вниз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]Неужели никто не знает?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c