Задача - в аутлуке ведется календарь
надо продублировать его в 1С

как?

нашел на инфостарте обработку - на первый взгляд все просто

olFolderCalendar = 9;

Попытка
   objOutlook = Новый COMОбъект("Outlook.Application");
Исключение
   Предупреждение("Не удалось создать объект Outlook.Application");
   Возврат;
КонецПопытки;

objNamespace = objOutlook.GetNamespace("MAPI");
objFolder = objNamespace.GetDefaultFolder(olFolderCalendar);

colAppointments = objFolder.Items;

Для Каждого objAppointment Из colAppointments Цикл


получает список событий, но ! только из календаря "по умолчанию"
а у меня календарей несколько

как из остальных получить?

т.е. мне надо выцепить общий календарь

http://msdn.microsoft.com/en-us/library/office/ff869575(v=office.15).aspx

>>только из календаря "по умолчанию"
это видимо из-за GetDefaultFolder(olFolderCalendar);
в MAPI команду анйти надо, чтоб взять не дефаулт, а нужный..
З.ы. сам не заморачивался, но скоро придётся
Ещё и чтоб дублировались в исходящих в аутлуке, отправленные из 1с

надо найти коллекцию календарей и выбрать в ней нужный )

http://support.microsoft.com/kb/310244

(3)
objNamespace = objOutlook.GetNamespace("MAPI");

objDummy = objOutlook.CreateItem(0);
objRecip = objDummy.Recipients.Add("Телеконференции");

objRecip.Resolve();

//myRecipient = objNamespace.CreateRecipient("Телеконференции");
//myRecipient.Resolve();

//П = myRecipient.Resolved;

SharedFolder = objNamespace.GetSharedDefaultFolder(objRecip, olFolderCalendar);

пишет:

{Форма.Форма.Форма(25)}: Ошибка при вызове метода контекста (GetSharedDefaultFolder)
SharedFolder = objNamespace.GetSharedDefaultFolder(objRecip, olFolderCalendar);
по причине:
Произошла исключительная ситуация (Microsoft Outlook): Не распознано одно или несколько имен.

т.е. Resolved возвращается Ложь для созхданного объекта

а, блин, надо писать не имя календаря - а имя владельца этого календаря

GetSharedDefaultFolder - прошел
а что теперь делать с полученым объектом?

olFolderCalendar = 9;

Попытка
   objOutlook = Новый COMОбъект("Outlook.Application");
Исключение
   Предупреждение("Не удалось создать объект Outlook.Application");
   Возврат;
КонецПопытки;

objNamespace = objOutlook.GetNamespace("MAPI");

//objDummy = objOutlook.CreateItem(0);
//myRecipient = objDummy.Recipients.Add("Телеконференции");

//myRecipient.Resolve();

myRecipient = objNamespace.CreateRecipient("Иванов Антон Геннадьевич");
myRecipient.Resolve();

//П = myRecipient.Resolved;

SharedFolder = objNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar);

objFolder = objNamespace.GetDefaultFolder(olFolderCalendar);

colAppointments = SharedFolder.Items;

Для Каждого objAppointment Из colAppointments Цикл

КонецЦикла;

вот такой воит кол, но цикла по итемам нет - в колекции пусто

чото у тебя везде Create и т.д., тебе ж надо получить существующий, смотри в сторону

Outlook.MAPIFolder oContacts = olNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts);
Outlook.Items oItems = oContacts.Items;

тока на календарь переделай, посомтри какие коллекции есть вобще

(11)
GetSharedDefaultFolder
вообще-то гет
но у него ДВА параметра

(11) как бы вариантов нет:
http://msdn.microsoft.com/en-us/library/office/ff861868(v=office.15).aspx

(12) у тебя криэйты с ивановым, ты создаёшь, и после этого гет - там поэтому и пусто видимо...

нормально все
реципеента писал владельца, а надо именно текущего владельца, под которым и работаю в аутлуке

а - нет, не то

Если в реципеенте пишу себя - то получаю свой же календарь по умолчанию
а если исходного владельца общего календаря - то фигу в итемах

myRecipient = objNamespace.CreateRecipient("Лобанов Роман Александрович");
myRecipient.Resolve();

//П = myRecipient.Resolved;


SharedFolder = objNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar);

objFolder = objNamespace.GetDefaultFolder(olFolderCalendar);

colAppointments = SharedFolder.Items;

Для Каждого objAppointment Из colAppointments Цикл

КонецЦикла;

вот так получаю именно мой календарь
и там есть итемы (колекция не пустая)

(18) в итемах есть чего интересного?

Нормально все у тебя в коде, теперь настрой аутлук, чтобы читать чужой календарь, надо дать доступ к нему.
Или указать ExchangeUser как "Иванов Антон", вроде как-то так

(20) и где это настраивать
в самом аутлуке я этот календарь вижу
в том же аутлуке выполняю этот макрос - рисует что доступа нет

http://listick.ru/share/wPPbo

"в самом аутлуке я этот календарь вижу
в том же аутлуке выполняю этот макрос - рисует что доступа нет"
ну вот это уже странно

(22) ну получается. что я что-то не то все-таки получаю в коде

у пользователя (отдающего) календарей два
первый показывается если я подключаю календарь (создаю) из адресной книги
а второй - мне прислали по почте ссылку (расшарили)
смотрел разрешения у юзера - я там имею права редактора (практически полные)

http://msdn.microsoft.com/en-us/library/bb646996.aspx

Возможно, у тебя получатель резолвится некорректно (т.е. вместо пользователя на сервере берётся из локальных контактов).
Попробуй по smtp адресу вместо имени определять.

(26) одинаково

(26) на картинке в (21) ведь именно он?

http://listick.ru/share/wIIak
как бы что-то все-таки получается, но не до конца

(25) менеджер пустой возвращается
http://listick.ru/share/wddcp