從共享 Outlook 日歷中解析約會

Question

我正在嘗試通過 Excel VBA 為我們樓層的會議室創建一個匿名時間表。

源數據存儲在不同的 Outlook 日歷中（每個房間都有自己的日歷），我可以通過 Outlook 的“共享日歷”功能訪問它們。

我目前遇到的問題是完全自動化數據檢索過程。 我讓其他一切工作正常，但是，它需要用戶從一個小的彈出窗口中手動選擇（當前）五個不同的日歷，這很煩人。

我曾嘗試使用GetDefaultFolder(olFolderCalendar).Items方法，但這似乎只適用於本地日歷，而不是來自網絡 (Exchange) 的共享日歷。

有沒有辦法直接處理這些房間日歷，以便我可以自動化我的流程？

此致，

達扎

這是我當前的代碼，減少到相關部分：

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 

Answer 1

您是否研究過 Namespace.GetSharedDefaultFolder 方法？