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

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, то после исполнения скрипта календарь еще и откроется в отдельном окне.

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

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