使用以下代码(由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)