从共享Outlook日历parsing约会
我正尝试通过Excel VBA为我们会议室的会议室创build一个匿名的时间表。
源数据存储在不同的Outlook日历（每个房间都有自己的），我可以通过Outlook的“共享日历”function访问它们。
我目前遇到的问题是完全自动化数据检索过程。 我还有一切工作正常，但是，它要求用户从一个小的popup窗口手动select（当前）五个不同的日历，这是相当烦人的。
我曾尝试使用GetDefaultFolder(olFolderCalendar).Items方法，但这似乎只适用于本地日历而不是从networking（Exchange）共享的日历。
有没有办法直接解决这些房间的日历，以便我可以自动化我的过程？
最好的祝福，
daZza
这是我现在的代码，切入相关部分：
Set olNS = olApp.GetNamespace("MAPI") For x = 1 To 5 Set myCalItems = olNS.PickFolder.Items With myCalItems .Sort "[Start]", False .IncludeRecurrences = True End With StringToCheck = "[Start] >= " & Quote(StartDate & " 12:00 AM") & " AND [End] <= " & Quote(EndDate & " 11:59 PM") Set ItemstoCheck = myCalItems.Restrict(StringToCheck) ' Do stuff with every item in "ItemstoCheck" ' ... ' ... ' ... Next
你有没有看过Namespace.GetSharedDefaultFolder方法？