AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 05.06.2009, 16:41   #13  
.Quattro. is offline
.Quattro.
Участник
Лучший по профессии 2009
 
194 / 22 (1) +++
Регистрация: 22.05.2006
Цитата:
Сообщение от .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;
В параметре Attachment передаю путь к файлу HTML-шаблона.
Ну а что мешает сформировать тело письма вида:
Цитата:
OutlookMsg.HTMLBody := STRSUBSTNO('Шаблон', Параметры);
Кстати, Ваш пример с незапущенным Outlook'ом скорее всего не сработает - надо Logon делать перед созданием сообщения.
 


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 06:09.