Занести термИны в календарь

[alexb_imported]

Цитата:

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

Разумеется, если происходят какие-то изменения в терминах...

1. Как вы думаете, все ли в русскоязычном форуме понимают нем. слово ТермИны (ударение на "и") ?
2. Видел в интернете такой вариант, сам ещё никогда не пользовался:

Variables:
Name	                DataType	Subtype	Length
MyApplication	        Automation	'Microsoft Outlook 14.0 Object Library'.Application	
MyNamespace	        Automation	'Microsoft Outlook 14.0 Object Library'.NameSpace	
MyFolder         	Automation	'Microsoft Outlook 14.0 Object Library'.Folder	
MyAppointmentItem	Automation	'Microsoft Outlook 14.0 Object Library'.AppointmentItem

Code:

IF ISCLEAR(MyApplication) THEN
  IF NOT CREATE(MyApplication) THEN
    ERROR('Outlook not found!');

MyNamespace := MyApplication.GetNamespace('MAPI');
MyFolder := MyNamespace.GetDefaultFolder(9); 'CALENDER'

MyAppointmentItem := MyFolder.Items.Add(1);
MyAppointmentItem.Subject := 'Test Entry';
MyAppointmentItem.Start := DATI2VARIANT(TODAY, 000000T);
MyAppointmentItem."End" := DATI2VARIANT(TODAY, 000000T);
MyAppointmentItem.AllDayEvent(TRUE);  // весь день
MyAppointmentItem.Body('Test Test');

[Lates]

Можно сделать онлайн отчет (например в Excel), который будет обращаться напрямую к нужной таблицы.
Любой пользователь может открыть его и увидеть актуальные данные
+ отфильтровать, сгруппировать для получения необходимого вида.
Не совсем, конечно, в тему. Но как вариант решения.

[Kadawrik]

Цитата:

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

Можно сделать онлайн отчет (например в Excel), который будет обращаться напрямую к нужной таблицы.
Любой пользователь может открыть его и увидеть актуальные данные
+ отфильтровать, сгруппировать для получения необходимого вида.
Не совсем, конечно, в тему. Но как вариант решения.

Благодарю за вариант. Но, боюсь, такое не прокатит. Требуется: именно в календарь Аутлука заносить события.

[Kadawrik]

Цитата:

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

1. Как вы думаете, все ли в русскоязычном форуме понимают нем. слово ТермИны (ударение на "и") ?

Я предполагала, что не все могут знать немецкий тЕрмин Termin
Но я также предполагала, что на этом русскоязычном форуме меня с моим суржиком поймут лучше и помогут скорее, чем мой корявый немецкий на немецком форуме. Кроме того, тут, как я и ожидала, народ с головой и знаниями_ и догадаться по контексту о каких термИнах/тЕрминах идет речь будет не сложно.
Уж простите мне такое смешение языков, но порой действительно трудно подобрать лаконичный и понятный эквивалент в русском языке.

Цитата:

2. Видел в интернете такой вариант,

А вот за это vielen Dank!
Будем пробовать.
Еще раз Благодарю.

[alexb_imported]

Цитата:

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

А вот за это vielen Dank!

Другой вариант:
создавать программным путём ics-файл и посылать его программным же путём e-mail'ом (codeunit 400) требуему адрессату.
Чтобы узнать, каким должно быть содержимое ics-файла: сделайте самой себе в календаре "Termin" и сохраните на жёстком диске.

[Kadawrik]

Я тут вот что накопала:
Экспорт задач в Outlook

Может тогда не изобретать велосипед, а воспользоваться тем механизмом, который уже есть?
Кто-нибудь уже пользовался этими функциями Навижн?

[Kadawrik]

Цитата:

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

2. Видел в интернете такой вариант, сам ещё никогда не пользовался:

Variables:
Name	                DataType	Subtype	Length
MyApplication	        Automation	'Microsoft Outlook 14.0 Object Library'.Application	
MyNamespace	        Automation	'Microsoft Outlook 14.0 Object Library'.NameSpace	
MyFolder         	Automation	'Microsoft Outlook 14.0 Object Library'.Folder	
MyAppointmentItem	Automation	'Microsoft Outlook 14.0 Object Library'.AppointmentItem

Code:

IF ISCLEAR(MyApplication) THEN
  IF NOT CREATE(MyApplication) THEN
    ERROR('Outlook not found!');

MyNamespace := MyApplication.GetNamespace('MAPI');
MyFolder := MyNamespace.GetDefaultFolder(9); 'CALENDER'

MyAppointmentItem := MyFolder.Items.Add(1);
MyAppointmentItem.Subject := 'Test Entry';
MyAppointmentItem.Start := DATI2VARIANT(TODAY, 000000T);
MyAppointmentItem."End" := DATI2VARIANT(TODAY, 000000T);
MyAppointmentItem.AllDayEvent(TRUE);  // весь день
MyAppointmentItem.Body('Test Test');

Поробовала так сделать.
Только у меня не MS Outlook 14.0, a MS Outlook 11.0
И переменная MyFolder имеет тип 'Microsoft Outlook 11.0 Object Library'.Folders
Это принципиально, что FolderS, a не Folder?

При таком раскладе ругается (в скобочках мой "вольный" перевод):


---------------------------
Microsoft Dynamics NAV
---------------------------
Diese Meldung ist für C/AL-Programmierer bestimmt: (это сообщение определённо для C/AL-программеров)

Ungültige Zuweisung. Es ist nicht möglich, ein MAPIFolder einer Folders zuzuweisen. (недопустимое присваивание. Невозможно присвоить MAPIFolder переменной типа Folders)

---------------------------
OK
---------------------------


Отвечая на свой же вопрос: похоже, что Folder и FolderS - все-таки принципиально. Но поблема в том, что у меня у Automation Server'а "Microsoft Outlook 11.0 Object Library" в списке объектов нет Folder, есть только Folders и FoldersEvents.
Как обойти эту проблему?