|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Автоматическая рассылка
Добрый день всем. У меня такая проблема. есть работающая автоматическая рассылка,
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; и необходимо к каждому отправляемому письмау прикрепить файл. Подскажите пожалуйста как это сделать. Очень надо |
#2
|
|||
|
|||
Можно так:
Код:
if FileExists(ledAttachment1.Text) then TIdAttachment.Create(MailMessage.MessageParts,ledAttachment1.Text); На форуме есть исходник программы для отправки почты, в котором без проблем можно сделать аттач выше написанным методом! Ссылка на исходник: http://delphisources.ru/pages/source...mple_mail.html |