0

以下は、共有予定表フォルダー内の定期的なアイテムの数を印刷できるコードです。ここで、ユーザーから SDate と EDate と言う日付範囲を取得し、指定された日付範囲の間の定期的なアイテムと通常のアイテムをチェックして印刷したいと考えています。私の繰り返しアイテムは 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
4

1 に答える 1

0

Items.IncludeRecurrences プロパティを使用します: http://msdn.microsoft.com/en-us/library/office/aa171434(v=office.11 ​​).aspx

于 2013-05-03T17:23:21.763 に答える