консоль и отправка на e-mail

[D_E_N]

привет всем. столкнулся с такой проблемой мне нужно из консольного прилож отправлять письмо на e-mail. добавил все компоненты indy но всё равно не отправляется вылетает ошибка. пробовал через f8 на хосте что то не так и она сразу идет в конец. поиск юзал но там тока с формой. вот код

var
IdMessage1:TIdMessage;
attach:TIdAttachmentFile;
idsmtp1:tidsmtp;
begin
IdSMTP1.Host := 'smtp.bk.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := '*****'; //специально зарегил для проверок
IdSMTP1.Password := '*****';
IdMessage1.From.Address:='******@bk.ru';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;

[0nni]

А создавать компонент перед обращением к нему не пробовали?

[D_E_N]

нет а как создать?

[0nni]

idsmtp1 := tidsmtp.Create(nil);//В самом начале создаешь так
{работаешь со свойствами и методами idsmtp1}
idsmtp1.free;//Когда он уже не нужен, уничтожаешь так.

[D_E_N]

спасибо щас попробую.

[0nni]

А что бы все стало совсем понятно, почитай здесь.

[D_E_N]

ошибка всё равно. через f8 на IdMessage1.From.Address:='****@bk.r u';

uses
  SysUtils,idsmtp,idmessage;

var
IdMessage1:TIdMessage;
idsmtp1:tidsmtp;
begin
idsmtp1 := tidsmtp.Create(nil);
IdSMTP1.Host := 'smtp.bk.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := '*****'; //специально зарегил для проверок
IdSMTP1.Password := '****';
IdMessage1.From.Address:='****@bk.ru';
IdMessage1.Subject := 'Test'ж
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
idsmtp1.free;
end.

[0nni]

Обрати внимание, что IdMessage1, тоже нужно создавать.

[D_E_N]

IdMessage1.From.Address:='vasya@bk. ru';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;<-- тут что писать ???
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru'