![]() |
#13 |
Участник
|
Цитата:
Сообщение от .rejector.
![]() Написал с подсказки rmv следующую функцию
Код: SendMessage(From : Text[100];To : Text[1024];ToName : Text[250];Subject : Text[250];TextBody : Text[1024];Attachment : Text[500]) IF ISCLEAR(OutlookApp) THEN CREATE(OutlookApp); OutlookMsg:=OutlookApp.CreateItem(0); OutlookMsg."To"("To"); OutlookMsg.Subject(Subject); OutlookAttach:=OutlookMsg.Attachments; OutlookAttach.Add(Attachment, 1); OutlookMsg.Display; Цитата:
OutlookMsg.HTMLBody := STRSUBSTNO('Шаблон', Параметры);
|
|