по отправке письма с файлом

[cargo29]

вот тут написал человек код

procedure  S_mail(Atta:string);
var smtp : TIdSMTP;
    msg  : TIdMessage;
begin
try
  smtp := TIdSMTP.Create(nil);
  smtp.AuthenticationType := atLogin;
  smtp.Username := 'LOGIN';
  smtp.Password := 'PASSWORD';
  smtp.Host     := 'smtp.yandex.ru';
  smtp.Port     := 25;
  smtp.Connect;
  if smtp.Authenticate then
  begin
    msg := TIdMessage.Create(nil);
    msg.Subject := Form1.Edit2.Text;
    msg.Body.Add(Form1.Memo1.Text);
    msg.From.Text := 'belmilk@yandex.ru';
    msg.Recipients.EMailAddresses := Form1.Edit1.Text;
    if FileExists(Atta) then
    TIdAttachment.Create(msg.MessageParts,Atta)
    else
     begin
       ShowMessage('Сообщение не отправлено!'+#13+'Обратитесь к программистам!!!'+#13+'Не могу подгрузить файл!!!');
       Exit;
     end;
    smtp.Send(msg);
    ShowMessage('Сообщение отправлено');
    smtp.Disconnect;
    msg.Free;
  end else ShowMessage('Сообщение не отправлено!');
  smtp.Free
  finally
   end;  
end;

но я не понимаю где тут крепиться файл??? и как его прикрепить? через OpenDialog1

[p51x]

 if FileExists(Atta) then
    TIdAttachment.Create(msg.MessageParts,Atta)

[cargo29]

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

 if FileExists(Atta) then
    TIdAttachment.Create(msg.MessageParts,Atta)

а как это сделать через opendialog????

[p51x]

if opendialo then S_mail(FileName);

[cargo29]

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

if opendialo then S_mail(FileName);

так ?? я вообще не понимаю куда и что (((

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
 procedure   S_mail(Atta:string);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.S_mail(Atta: string);
var smtp : TIdSMTP;
    msg  : TIdMessage;
begin
try
  smtp := TIdSMTP.Create(nil);
  smtp.AuthenticationType := atLogin;
  smtp.Username := '';
  smtp.Password := '';
  smtp.Host     := 'smtp.yandex.ru';
  smtp.Port     := 25;
  smtp.Connect;
  if smtp.Authenticate then
  begin
    msg := TIdMessage.Create(nil);
    msg.Subject := Form1.Edit2.Text;
    msg.Body.Add(Form1.Memo1.Text);
    msg.From.Text := 'cargo29@ta.ru';
    msg.Recipients.EMailAddresses := Form1.Edit1.Text;
    if FileExists(Atta) then
    TIdAttachment.Create(msg.MessageParts,Atta)
    else
     begin
       ShowMessage('Сообщение не отправлено!'+#13+'Обратитесь к программистам!!!'+#13+'Не могу подгрузить файл!!!');
       Exit;
     end;
    smtp.Send(msg);
    ShowMessage('Сообщение отправлено');
    smtp.Disconnect;
    msg.Free;
  end else ShowMessage('Сообщение не отправлено!');
  smtp.Free
  finally
   end;



end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
S_mail(opendialog1.FileName);
end;

end.

[Бутаков_Сергей]

В прикреплении исходник со все что тебе надо! Код написан легко, думаю проблемы не возникнут.