vbscript切换到(outlook 2010)日历视图,同时取消选择其他日历和共享日历

时间:2018-07-10 22:42:16

标签: vbscript outlook

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

0 个答案:

没有答案