Items.IncludeRecurrences 屬性 (Outlook)
會傳回Boolean，指出如果Items集合應該包含週期模式，則為True。 讀取/寫入。
語法
expression。 IncludeRecurrences
表達 代表 Items 物件的變數。
註解
只有當 Items 集合包含約會，而且未依 Start 以外的任何屬性以遞增順序排序時，這個屬性才會有作用。 預設值為 False。 當您想要擷取指定日期的所有約會時，週期性約會並不會正常顯示，因為它們並未與任何特定日期相關聯，此時就可以使用這個屬性。 如果需要排序及篩選包含週期性約會的約會項目，則必須依照此操作順序：將項目遞增排序，再將 IncludeRecurrences 設定為 True，然後篩選項目。 如需示範此操作順序的範例程式碼，請參閱下列第二個範例。 如果集合中包括沒有結束日期的週期性約會，則將這個屬性設定為 True 可能會導致集合的計數變成無限大。 請務必在任何迴圈中包含這項測試。 當重複使用其 IncludeRecurrence 屬性為 True 的 Items 集合時，不應該使用 Items 集合的 Count 屬性。 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。