Создание HTML писем из Navision

[.rejector._imported]

Коллеги, день добрый.
Никто не сталкивался с ситуацией когда нужно создать из Navision html письмо с форматированием и с картинками. С помощью codeunit 397 Mail письма в Outlook создаются прекрасно, но они в текстовом формате...
Буду очень благодарен, если кто подкинет идею.

[RedFox]

Цитата:

Сообщение от .rejector.

Коллеги, день добрый.
Никто не сталкивался с ситуацией когда нужно создать из Navision html письмо с форматированием и с картинками. С помощью codeunit 397 Mail письма в Outlook создаются прекрасно, но они в текстовом формате...
Буду очень благодарен, если кто подкинет идею.

Либо самому писать прогу, либо найти прогу для конвертации и настроить её, чтобы отрабатывало меню File->Send->Form to Program.
А html стандартизированный или постоянно его стуктура меняется?

[.rejector._imported]

Стандартизированный. Просто письмо должно быть красивое, с форматированием и картинками

[romeo]

Цитата:

Сообщение от .rejector.

Стандартизированный. Просто письмо должно быть красивое, с форматированием и картинками

REPORT.SAVEASHTML(FileName). Затем FileName вкладываете в письмо.

[.rejector._imported]

Это получится письмо с вложением, а нужно html письмо.
Еще нужно что бы ушедшее письмо осталось в папке "Исходящее"
Ох...

[rmv]

Возможно так поможет:
OutlookMsg:=OutlookApp.CreateItem(0);
OutlookAttach:=OutlookMsg.Attachments;
OutlookAttach.Add(lFileName, 1);
OutlookMsg.Display;

[.rejector._imported]

А чуть поподробней плиз...
Какой Automation, какой метод.

[rmv]

OutlookApp Automation 'Microsoft Outlook 11.0 Object Library'.Application
OutlookMsg Automation 'Microsoft Outlook 11.0 Object Library'.MailItem
OutlookAttach Automation 'Microsoft Outlook 11.0 Object Library'.Attachments

Методы собственно в коде.

[.rejector._imported]

rmv, спасибо большое!!! Все получилось.

Возникла ещё проблемка, в получившимся html письме нужно произвести вставку, например, имени клиента. Сам шаблон, на основании которого формируется письмо, имени не содержит.
То есть шаблон выглядит так:

Уважаемый %1!
Ваш заказ № %2 бла, бла...
Всего наилучшего!

В письмо этот шаблон затягивается, всё прекрасно. А вот как теперь вместо %1 и %2 подставить значения из заказа?
Формировать новый шаблон, путем копирования оригинального шаблона, модифицировать налету, вставлять созданный шаблон в файл, а после отправки удалять... Наверняка есть более корректный метод.

[rmv]

Цитата:

Сообщение от .rejector.

rmv, спасибо большое!!! Все получилось.

Возникла ещё проблемка, в получившимся html письме нужно произвести вставку, например, имени клиента. Сам шаблон, на основании которого формируется письмо, имени не содержит.
То есть шаблон выглядит так:

Уважаемый %1!
Ваш заказ № %2 бла, бла...
Всего наилучшего!

В письмо этот шаблон затягивается, всё прекрасно. А вот как теперь вместо %1 и %2 подставить значения из заказа?
Формировать новый шаблон, путем копирования оригинального шаблона, модифицировать налету, вставлять созданный шаблон в файл, а после отправки удалять... Наверняка есть более корректный метод.

Я формировал XHTML в самом Навижне (нужно было сгенерить таблицу с ссылками на документы Нава).
При использовании шаблонов возможно лучший вариант использовать методы Replace (если таковые есть) текстового редактора Outlook'a.

[.Quattro.]

А пришлите код, которым заполняете Body сообщения

[.rejector._imported]

Цитата:

Сообщение от .Quattro.

А пришлите код, которым заполняете Body сообщения

Написал с подсказки 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-шаблона.

[.Quattro.]

Цитата:

Сообщение от .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 делать перед созданием сообщения.

[rmv]

Цитата:

Сообщение от .Quattro.

Ну а что мешает сформировать тело письма вида:
OutlookMsg.HTMLBody := STRSUBSTNO('Шаблон', Параметры);

Мне помешает ограничение в 1000 символов.

Цитата:

Сообщение от .Quattro.

Кстати, Ваш пример с незапущенным Outlook'ом скорее всего не сработает - надо Logon делать перед созданием сообщения.

Не исключено . Полагаю впрочем, что автора топика этот вопрос пока сильно не волнует.

[.rejector._imported]

Цитата:

Сообщение от rmv

При использовании шаблонов возможно лучший вариант использовать методы Replace (если таковые есть) текстового редактора Outlook'a.

Наверняка есть, но мои попытки найти такой метод ни к чему не привели.

[.rejector._imported]

Да, действительно шаблон письмо больше 1024 символов.
Вопрос с запущенным Outlook действительно не волнует, те кому нужно эта функция, имею запущенный Outlook по умолчанию.

[.Quattro.]

А в каком виде хранится шаблон сообщения? - В записях таблицы в Нав или как отдельный файл на сервере?

Ограничение в длине переменной в 1024 символа здесь вообще ни при чем. HTMLBody не ограничена этим значеним.

[.rejector._imported]

Шаблон хранится как отдельный файл на сервере.

[.Quattro.]

Тогда можно же этот файл построчно записать в HTMLBody письма. Через STRSUBSTNO заменить параметры на значения.

[.rejector._imported]

Да, блин, так уже и сделал. Но мне не нравится, как то это через костыли получается.