通过outlook约会进行迭代

如果您愿意使用第三方库,我建议您使用“赎回”库( http://www.dimastr.com/redemption/ RDO文件夹2 获取活动范围 方法。

您可以在此处找到有关此接口用法的更多信息: ( http://www.dimastr.com/redemption/rdo/rdofolder.htm )

如果您不想使用第三方库并且需要坚持使用outlookapi,技巧是设置 包括当前 ( http://www.outlookcode.com/article.aspx?id=30

实际上,没有必要使用第三方工具。有一个选项includecurrences负责:

    Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set MyFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)

Set oItems = MyFolder.Items

' Restrict Date
strFilter = "[Start] >= " + "'"  + ourStart + "'"
Set oItems = oItems.Restrict(strFilter)

strFilter = "[End] <= " + "'"  + ourEnd + "'"
Set oItems = oItems.Restrict(strFilter)

' Restrict Category
strFilter = "[Categories] = " + "'"  + ourCategory + "'"
Set oItems = oItems.Restrict(strFilter)

oItems.Sort "[Start]"

' We want recurring, too (http://www.pcreview.co.uk/forums/get-recurring-appointment-dates-vba-t799214.html)
oItems.IncludeRecurrences = True