时间戳

首页 > 解决方案 > 在 vba 中将定期会议从 Outlook 变为 excel 的问题

excel - 在 vba 中将定期会议从 Outlook 变为 excel 的问题

问题描述

我正在研究一个宏来让 Outlook 日历数据变得更好。在大多数情况下它可以工作，但是我没有得到经常性的约会或会议。我从这个 Microsoft 文档中知道我需要添加 IncludeReferences 值。它在我的代码中，但我仍然没有得到那些定期会议。任何帮助将不胜感激，谢谢！

Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(9) 'olFolderCalendar
NextRow = 2

olFolder.Items.Sort "[Start]"
olFolder.Items.IncludeRecurrences = True

With Sheets("Sheet1") 
    .Range("C1:F1").Value = Array("Project", "Date", "Timespent", "Categories") '"Location", "Categories")
    For Each olApt In olFolder.Items
        --Do Stuff--
    Next olApt
End With

标签： excelvbaoutlook

解决方案

您正在调用Sort并设置对象IncludeRecurrences的两个不同实例，Items它们彼此一无所知。将对象存储Items在专用变量中。

另请记住，IncludeRecurrences只有在您限制日期范围时才会起作用 -Sort不会起作用：想想没有结束日期的约会。

有关示例，请参阅https://docs.microsoft.com/en-us/office/vba/api/outlook.items.includerecurrences 。

推荐阅读