Скачать: CL | DM;

Sendmail   Найти похожие ветки 

← →
Максим   (2007-12-15 00:08) [0]

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

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;

---

← →
turbouser ©   (2007-12-15 00:14) [1]

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

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

---

← →
DrPass ©   (2007-12-15 00:30) [2]

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

---

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

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

---

← →
Anatoly Podgoretsky ©   (2007-12-15 00:35) [4]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-12-15 00:38) [5]

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c