|
![]() |
#1 |
Участник
|
Цитата:
Сообщение от 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 Код: 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. Как обойти эту проблему? |
|