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

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

Sendmail [D7, XP]

Максим ©   (2007-12-15 00:08:00) 

Народ чего не отправляется письмо

procedure TMailsend.Button2Click(Sender: TObject);
begin
IdMessage1 := TIdMessage.Create(Mailsend);
IdSMTP1.Host := 'smtp.bk.ru';
IdSMTP1.Username := '*******';
idSMTP1.Password := '********';
IdSMTP1.Connect;
with IdSMTP1 do Begin
IdMessage1.Subject := Edit1.Text;
IdMessage1.From.Address := Edit2.Text;
IdMessage1.Recipients.EMailAddresses := 'XIIIcool@gmail.com'; // это адрес получателя
IdMessage1.Body.Text := Edit3.Text ;

end;
If IdSMTP1.Connected Then IdSMTP1.Disconnect; IdSMTP1.Destroy;
end;

---

Anatoly Podgoretsky   (2007-12-15 00:38:00) [1]

> Максим  (15.12.2007 00:33:03)  [3]

А это еще загадочнее звучит.

---

Anatoly Podgoretsky   (2007-12-15 00:35:00) [2]

> Максим  (15.12.2007 00:08:00)  [0]

Пароль неправильный

---

Максим   (2007-12-15 00:33:00) [3]

добавил строку, сейчас просто вылетает пустая ошибка

---

DrPass   (2007-12-15 00:30:00) [4]

... а еще где IdMessage1.Free, и что за технический садизм делать IdSMTP1.Destroy (оно ведь на форме лежит, угадал?)

---

turbouser   (2007-12-15 00:14:00) [5]

> Максим   (15.12.07 00:08)  

Ух, напугал. Я уж дамал, с сендмайлом что случилось :-)
А где же собственно, IdSMTP1.Send(IdMessage1)?

---

Наверх