Добрый день всем. У меня такая проблема. есть работающая автоматическая рассылка,
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;
и необходимо к каждому отправляемому письмау прикрепить файл. Подскажите пожалуйста как это сделать. Очень надо
