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

Posted by micher under Delphi

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

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');

// дальше - коннект и отправка

тема на форуме

Случайные статьи

• Циклический алгоритм для вычисления значения функции
• Перевод байтов в килобайты и мегабайты в Делфи
• ТЕОРЕМА ШЕННОНА
• Сеть на ассемблере: проблема
• Рекомендуемые правила оформления кода
• Открытие файла hosts
• Отследить удерживание клавиши
• Изменение динамического ip
• Создать файл фиксированного размера
• Функциональное программирование