Отсылка через e-mail. - NAV: Программирование

Vik80 · 02.05.2007, 12:38

Добрый возникла проблема.
Необходимо отослать из навижена письмо по e-mail, с несколькими прикрепленными файлами.
Как я понимаю отсылая с помощью стандартной функции навижена и вообще с помощью automation это сделать невозможно.
Тогда OCX
Microsoft MAPI Session Control, version 6.0
Microsoft MAPI Messages Control, version 6.0
Но вот вопрос: при компиляции просит какую-то лицензию на OCX.
В чем могло бы быть дело?

Голышев Михаил · 02.05.2007, 13:34

В отсутсвии гранулы OCX

Vik80 · 02.05.2007, 13:42

Тихо тихо, девелоперская лицензия на навижене. Другие OCX подключаются. Речь идет о какойто лицензии именно на эту ОCXну.

Голышев Михаил · 02.05.2007, 13:53

UPD: Пример добавления нескольких атачментов:

Код:

CREATE(objMailApplication);
objMailItem := objMailApplication.CreateItem(0);
objMailItem."To"(sToName);
objMailItem.CC(sCCName);
objMailItem.Subject(sSubject);
IF bFormatHTML THEN
  objMailItem.HTMLBody(sBody)
ELSE
  objMailItem.Body(sBody);
IF (sAttachFileName1 <> '') OR (sAttachFileName2 <> '') OR (sAttachFileName3 <> '') THEN BEGIN
  objMailAttachments := objMailItem.Attachments;
  IF (sAttachFileName1 <> '') THEN
	objMailAttachments.Add(sAttachFileName1);
  IF (sAttachFileName2 <> '') THEN
	objMailAttachments.Add(sAttachFileName2);
  IF (sAttachFileName3 <> '') THEN
	objMailAttachments.Add(sAttachFileName3);
END;

objMailItem.Categories := 'Navision';
IF bDontSend THEN
  objMailItem.Display(FALSE)
ELSE
  objMailItem.Send;
CLEAR(objMailApplication);

все automation - это Microsoft Outlook 11.0 Object Library