Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Новочеркасский Волк ©   (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 раз беседу а на второй увольнение по несоответствию занимаемой должности.

---

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.036 c