Question

我正在尝试通过Excel VBA为我们楼层的会议室创建匿名日程安排。

源数据存储在不同的Outlook日历中（每个房间都有自己的日历），我可以通过＆＃34;共享日历＆＃34;来访问它们。 Outlook的功能。

我目前遇到的问题是完全自动化数据检索过程。我让其他一切工作正常，但是，它要求用户从一个小的弹出窗口手动选择（当前）五个不同的日历，这是相当无聊的。

我尝试过使用GetDefaultFolder(olFolderCalendar).Items方法，但这似乎只适用于本地日历而不是网络共享的日历（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

Answer 1

您是否查看了Namespace.GetSharedDefaultFolder方法？

从共享的Outlook日历中解析约会

1 个答案: