Как прикрепить к письму файл.

[Zis67]

Попробовал так:

procedure TForm1.FormCreate(Sender: TObject);

var
attach:TidAttachment;
msg:tidmessage;
i:integer;
begin
Form1.idSMTP1.Username:='*****;
Form1.idSMTP1.Password:='*****';
Form1.idSMTP1.Host:='smtp.mail.ru';
Form1.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('test ');
msg.Subject:='message';
msg.From.Address:='*****';
msg.From.Name:='test';
msg.Recipients.EMailAddresses:='*** **;
msg.IsEncoded:=true;
Form1.idSMTP1.Connect;
Form1.idSMTP1.Connected;
Form1.idSMTP1.Send(msg);
end;

procedure TForm1.IdMessage1CreateAttachment(c onst AMsg: TIdMessage;
const AHeaders: TStrings; var AAttachment: TIdAttachment);
begin
TIdAttachmentFile.Create(Mail.Messa geParts, 'c:\YouFile.txt');
end;

end.

Ругается на
TIdAttachmentFile.Create(Mail.Messa geParts, 'c:\YouFile.txt');
Возможноли вобще в Delphi 2010 посредством этого прикрепить файл, или есть ещё какой-то способ.

[volvo877]

msg.From.Name:='test';
msg.Recipients.EMailAddresses:='*** **;
msg.IsEncoded:=true;
// Вот тут добавляем файл:
TIdAttachmentFile.Create(msg.MessageParts, 'c:\YouFile.txt');
// дальше - коннект и отправка

Только зачем это делать при создании формы?

[Zis67]

Спасибо, заработало)

[dolphin705]

Видимо троянца пишут)