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

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

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

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

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

• Как с помощь ajax можно вызывать функцию из php файла?
• Определние локального и внутреннего IP
• Функции с переменным числом параметров С++
• Проверить статус звука
• Получить из страницы сайта все ссылки на новости
• Запуск программы в определенное время
• Рассылка. Выпуск 193
• Параноя антивирей на упакованные файлы
• Как быстро перемешать строки?
• Дневник разработчика игр