|
|
#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('Шаблон', Параметры);
|
|
|