vbscript切换到（outlook 2010）日历视图，同时取消选择其他日历和共享日历

Question

使用以下代码（由cscript执行），我将Outlook切换到日历视图，但同时取消选择所有“其他”和“共享”日历。我想切换到日历视图，但是我不希望我的日历选择消失。如果Outlook已在显示日历模块，则不会删除选择。仅当Outlook在其他页面（例如邮件）上开始时才会发生。请指出我的错误方式：

Set objApp = CreateObject("Outlook.Application")
Set Session = objApp.GetNamespace("MAPI")
Session.Logon "Default Outlook Profile",, False, True
Const olFolderCalendar = 9

' Executing this line deselects all calendars except the user default.
Set objApp.ActiveExplorer.CurrentFolder = Session.GetDefaultFolder(olFolderCalendar)