Items.IncludeRecurrences 属性 (Outlook)

  • 项目

返回 boolean 类型的值 ，指示如果 Items 集合应包括定期模式 ，则返回 True 。 读/写。

语法

expression。 IncludeRecurrences

表达 一个代表 Items 对象的变量。

备注

如果 项 集合包含约会而不按升序顺序而不 启动 任何属性，此属性才会有效果。 默认值为 False 。 使用此属性时您想要检索给定日期，所有的约会在定期约会会通常不会显示因为它们不与任何特定日期相关联。 如果需要进行排序和筛选在包含定期约会的约会项目，则必须按以下顺序进行: 升序排序的项进行排序，将 IncludeRecurrences 设置为 True ，然后筛选的项。 有关演示此顺序的代码示例，请参阅下面的第二个示例。 如果该集合包含不具有结束日期的定期约会，将属性设置为 True 可能会导致该集合无穷大。 一定要为此测试纳入任何循环。 当循环 项 集合的 IncludeRecurrence 属性设置为 True 时，不应使用 项 集合的 Count 属性。 计数 的值将是未定义的值。

警告

[!警告] 对匹配项的已排序列表筛选将导致无法按预期方式工作的 IncludeRecurrences 属性。 例如，以下序列将返回所有约会事件;定期和非重复： (1) 按 Start 属性排序 (2) 将属性设置为 False (3) 调用 Restrict (即筛选) 。

示例

以下 Visual Basic for Applications (VBA) 示例显示在今天和明天之间发生的约会（包括定期约会）的主题。

Sub DemoFindNext() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim tdystart As Date 
 
 Dim tdyend As Date 
 
 Dim myAppointments As Outlook.Items 
 
 Dim currentAppointment As Outlook.AppointmentItem 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 tdystart = VBA.Format(Now, "Short Date") 
 
 tdyend = VBA.Format(Now + 1, "Short Date") 
 
 Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items 
 
 myAppointments.Sort "[Start]" 
 
 myAppointments.IncludeRecurrences = True 
 
 Set currentAppointment = myAppointments.Find("[Start] >= """ & _ 
 
 tdystart & """ and [Start] <= """ & tdyend & """") 
 
 While TypeName(currentAppointment) <> "Nothing" 
 
 MsgBox currentAppointment.Subject 
 
 Set currentAppointment = myAppointments.FindNext 
 
 Wend 
 
End Sub

以下示例显示对包含定期约会的约会项目进行排序和筛选的顺序。

Sub SortAndFilterAppointments() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myAppointments As Outlook.Items 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set calendarItems = myNameSpace.GetDefaultFolder(olFolderCalendar).Items 
 
 calendarItems.Sort "[Start]" 
 
 calendarItems.IncludeRecurrences = True 
 
 Set restrictedItems = calendarItems.Restrict("[Organizer]='Dan Wilson'") 
 
End Sub

另请参阅

Items 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。