Отправка письма с влажением на 2009

[cargo29]

как можно отправиться письмо на почту с делфи 2009 с вложением ?? есть код на 7 написан но на 2009 не работает он

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ImgList, StdCtrls, inifiles, IdMessage,
  IdCookieManager, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
  IdSMTPBase, IdSMTP, idattachment;

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Edit5: TEdit;
    Button2: TButton;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    TrayIcon1: TTrayIcon;
    ImageList1: TImageList;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    Label3: TLabel;
    IdSMTP1: TIdSMTP;
    IdAntiFreeze1: TIdAntiFreeze;
    IdCookieManager1: TIdCookieManager;
    IdMessage1: TIdMessage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
   ini:Tinifile;
implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
 att:Tidattachment;
begin
ini.WriteString('mail','login', edit1.Text);
ini.WriteString('mail','pass', edit2.Text);

IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='Логин ';
IdSMTP1.Password:='пароль';

IdMessage1.From.Text:='От кого';
IdMessage1.Body.Text:='Текст';
IdMessage1.Subject:='Тема';
IdMessage1.Recipients.EMailAddresses:='Кому';
IdMessage1.MessageParts.Clear;
idsmtp1.Connect();
if idsmtp1.Connected then
begin
idsmtp1.Send(IdMessage1);
MessageDlg('Отправка завершена',mtInformation,[mbOk],0);
end;
Idsmtp1.Disconnect;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute=true then
begin
edit5.Text:=opendialog1.FileName;
end

end;

procedure TForm4.FormCreate(Sender: TObject);
begin
 ini:=Tinifile.Create('C:\windows\pochta.ini');
end;

procedure TForm4.N1Click(Sender: TObject);
begin
show;
end;

procedure TForm4.N2Click(Sender: TObject);
begin
hide;
end;

procedure TForm4.N3Click(Sender: TObject);
begin
close;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
label1.Caption:=inttostr(length(memo1.Text));
end;

end.

[Stilet]

А какие ошибки то выдает?

[cargo29]

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

А какие ошибки то выдает?

код недописано вот он

procedure TForm1.Button1Click(Sender: TObject);
var
att:Tidattachment;
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='Пароль';
IdMessage1.From.Text:='cargo29@ya.ru';
IdMessage1.Body.Text:='dasdsadsadsadsadsadsadsadsadsadsadsadsada';
IdMessage1.Subject:='fdsfdsfdsfdfdsfsdfdsfdsf';
IdMessage1.Recipients.EMailAddresses:='cargo29@ya.ru';
IdMessage1.MessageParts.Clear;
att:=TIdAttachment.Create(IdMessage1.MessageParts, OpenDialog1.FileName);
idsmtp1.Connect();
if idsmtp1.Connected then
begin
idsmtp1.Send(IdMessage1);
MessageDlg('Отправка завершена',mtInformation,[mbOk],0);
end;
Idsmtp1.Disconnect;

вот эта строчка

att:=TIdAttachment.Create(IdMessage1.MessageParts, OpenDialog1.FileName);

а ошибка он не пишет только подчеркивает делфи 2009

[Stilet]

а ошибка он не пишет

Не может такого быть.

[cargo29]

щас скрины выложу вот парочка посмотри.....

[Stilet]

Ну вот. А ты говоришь ошибки нет.
Все есть. Тут видимо глюки ИНДИ.
У меня вообще говорит что в TIdAttachment.Create всего один параметр

att:=TIdAttachment.Create(IdMessage1.MessageParts);
att.LoadFromFile(OpenDialog1.FileName);

[cargo29]

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

Ну вот. А ты говоришь ошибки нет.
Все есть. Тут видимо глюки ИНДИ.
У меня вообще говорит что в TIdAttachment.Create всего один параметр

att:=TIdAttachment.Create(IdMessage1.MessageParts);
att.LoadFromFile(OpenDialog1.FileName);

Вот и у меня один параметр и как тогда обойтись?

[W0LF]

А вам не хватило того, что вам написали уже как это "обойти"?

[cargo29]

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

А вам не хватило того, что вам написали уже как это "обойти"?

написал все так же....

[Stilet]

А если заглянуть сюда:http://delphiworld.narod.ru/base/smtp_example.html
Тут Аттачи идут как список имен файлов

The Attachments property specifies a list of files to attach to the outgoing E-Mail message.

А это добавление очередного файла к письму.

SMTP.PostMessage.Attachments.add(attachment);

Попробуй воспользоваться тем способом приаттачивания. и отсылать используя компонент TNMSMTP