[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.
Как обойти эту проблему?