This documentation is archived and is not being maintained.

Items.IncludeRecurrences Property

Office 2007
Returns a Boolean that indicates True if the Items collection should include recurrence patterns. Read/write.



expression   A variable that represents an Items object.


This property only has an effect if the Items collection contains appointments and is not sorted by any property other than Start in ascending order. The default value is False. Use this property when you want to retrieve all appointments for a given date, where recurring appointments would not normally appear because they are not associated with any specific date. If you need to sort and filter on appointment items that contain recurring appointments, you must do so in this order: sort the items in ascending order, set IncludeRecurrences to True, and then filter the items. For a code sample showing this order, see the second example below. If the collection includes recurring appointments with no end date, setting the property to True may cause the collection to be of infinite count. Be sure to include a test for this in any loop. You should not use Count property of Items collection when iterating Items collection with IncludeRecurrence property set to True. The value of Count will be an undefined value.


The following Visual Basic for Applications (VBA) example displays the subject of the appointments that occur between today and tomorrow including recurring appointments.

Visual Basic for Applications
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
End Sub

The example below shows the order to sort and filter on appointment items that contain recurring appointments.

Visual Basic for Applications
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