WSH: подключение календаря в Outlook 2010

2012-02-09T10:38:43Z

Появилась такая задача. В зависимости от групп, в которых состоит пользователь, подключать ему в Outlook календарь другого пользователя - есть там такая фишка "Открыть календарь", например из Адресной книги.

Пошарив в интернетах наткнулся на такое решение:

Set Application = CreateObject("Outlook.Application")
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Иванов Иван Иванович")
myRecipient.Resolve
If myRecipient.Resolved Then
    Set CalendarFolder = myNameSpace.GetSharedDefaultFolder (myRecipient, 9)
    'CalendarFolder.Display
End If

Если раскоментить строчку CalendarFolder.Display, то после исполнения скрипта календарь еще и откроется в отдельном окне.

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

Как победить?

Серый форум — WSH: подключение календаря в Outlook 2010

WSH: подключение календаря в Outlook 2010