Не могу отправить письмо

[Квэнди]

Завел пользователя на Yandex

procedure TForm59.btn1Click(Sender: TObject);
var msg:TIdMessage;
  	attach:TIdAttachmentFile;
begin
smtp.Host:='smtp.yandex.ru';
smtp.Port:=25;
smtp.Username:='programmerstest';
smtp.Password:='123456';
msg:=TIdMessage.Create;
try
  msg.Body.Text:='TestMsg';
  msg.Subject:='Testing Message';
  msg.From.Address:='programmerstest@yandex.ru';
	msg.From.Name:='ываыа';
  msg.Recipients.EMailAddresses:='<e-mail адрес>';
  msg.IsEncoded:=true;
  attach:=TIdAttachmentfile.Create(msg.MessageParts,'C:\test.txt');
  smtp.Connect;
  smtp.Send(msg);
finally
  msg.Free;
end;
end;

все отправляется и все работает.

[seoanalyzer]

Фуу, да работает, спасибо огромное)

[Д'якон]

Приветдите пожадуйста полный пример кода. С uses и тем что на форме должно быть. Спасибо.

[Terran]

Сообщение от Д'якон

Приветдите пожадуйста полный пример кода. С uses и тем что на форме должно быть. Спасибо.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    SMTP: TIdSMTP;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
msg:TIdMessage;
attach:TIdAttachmentFile;
begin
smtp.Host:='smtp.yandex.ru';
smtp.Port:=25;
smtp.Username:='programmerstest';
smtp.Password:='123456';
msg:=TIdMessage.Create(self);
try
  msg.Body.Text:='TestMsg';
  msg.Subject:='Testing Message';
  msg.From.Address:='programmerstest@yandex.ru';
	msg.From.Name:='ываыа';
  msg.Recipients.EMailAddresses:='<e-mail адрес>';
  msg.IsEncoded:=true;
  attach:=TIdAttachmentfile.Create(msg.MessageParts,'C:\test.txt');
  smtp.Connect;
  smtp.Send(msg);
finally
  msg.Free;
end;
end;
end.

TIdAttachmentFile - это если я не ошибаюсь с Indy 10. У меня Indy 10 не установлено, поэтому я мог где-то и ошибиться т.к. этот код не проверял.