Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Июл

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

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

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

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