[Dorofei]

Добрый день всем. У меня такая проблема. есть работающая автоматическая рассылка,
OA := TOutlookApplication.Create(self);
OA.Connect;
lettr := TMailItem.Create(nil);
Application.ProcessMessages;
full_adress:=QPredst.Fieldbyname('klient_email').A sString
position := pos(';',full_adress);
DearFio := '';
Name := QPredst.Fieldbyname('FIO_IP_KOR').AsString;
NameDp := QPredst.Fieldbyname('FIO_RP').AsString;
EmailHtmlText := invetation.text;
p := pos('Addressing',EmailHtmlText);
email:=QPredst.Fieldbyname('EMAIL').AsString;
lettr.ConnectTo(OA.CreateItem(olMailItem) as _MailItem);
lettr.Recipients.Add(email);
lettr.Subject:= tema.Text
lettr.Subject:=lettr.Subject+NameDp;
lettr.HTMLBody := EmailHtmlText;
lettr.send;
и необходимо к каждому отправляемому письмау прикрепить файл. Подскажите пожалуйста как это сделать. Очень надо

[~ SaM ~]

Можно так:

Код:

if FileExists(ledAttachment1.Text)
        then TIdAttachment.Create(MailMessage.MessageParts,ledAttachment1.Text);

На форуме есть исходник программы для отправки почты, в котором без проблем можно сделать аттач выше написанным методом!

Ссылка на исходник:

http://delphisources.ru/pages/source...mple_mail.html