Vba 指定日期范围内的outlook共享日历定期项目

以下是我的代码，我可以在其中打印共享日历文件夹中的定期项目数。现在，我想从用户（比如SDate和EDate）获取日期范围，并希望检查指定日期范围之间的重复性以及正常的aaPoint项，然后打印它。我的重复项目从2010年1月1日开始，没有结束日期，每周五重复。我想检查具体项目是否在我的日期范围内重复出现，如果是，我想打印其详细信息

Sub item()

Dim objExpCal As Outlook.Explorer
Dim objNavMod As Outlook.CalendarModule
Dim objNavGroup As Outlook.NavigationGroup
Dim objNavFolder As Outlook.NavigationFolder
Dim objFolder As Outlook.Folder

Set objOL = Application
Set objNS = objOL.Session
Set colExpl = objOL.Explorers

Set objExpCal = _
objNS.GetDefaultFolder(olFolderCalendar).GetExplorer

Set objNavMod = objExpCal.NavigationPane.Modules. _
GetNavigationModule(olModuleCalendar)

Set objNavGroup = objNavMod.NavigationGroups. _
GetDefaultNavigationGroup(olPeopleFoldersGroup)


For Each objNavFolder In objNavGroup.NavigationFolders
    Set objFolder = objNavFolder.Folder
    Set oItems = objFolder.Items
    Set colFilteredItems = oItems.Restrict("[IsRecurring] = TRUE")

    For Each objItem In colFilteredItems

        Debug.Print objItem
        Set objpattern = objItem.GetRecurrencePattern

    Next

Next

End Sub

---

使用Items.IncludeCurrences属性：