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]

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

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

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

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

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

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