How to: Filter Recurring Appointments and Search for a String in the Subject
This example filters recurring appointments that fall within a date range in a Calendar folder, and then searches in two ways for the string "office" in the subject.
To filter recurring appointments, this code sample uses the Items collection instead of the Table object, because the Table object returns only the master series appointments and does not include recurring items in the folder. To include recurring appointments when calling the Find(String) or Restrict(String) method, the code sample sets the IncludeRecurrences property of the Items collection, and then sorts appointments in the folder by their Start property. It then uses a Jet query to specify start and end dates for the recurrences.
After obtaining an Items collection of recurring appointment items that fall within the specified range of dates, the code sample carries out two more searches using DAV Searching and Locating (DASL) queries. The first search uses Items.Find, FindNext, and the like keyword to search for items that have "office" as a substring in the subject. The second search uses the Items.Restrict method and the ci_startswith keyword to search for items that have subjects beginning with "office."
If you use Visual Studio to test this code example, you must first add a reference to the Microsoft Outlook 15.0 Object Library component and specify the Outlook variable when you import the Microsoft.Office.Interop.Outlook namespace. The Imports or using statement must not occur directly before the functions in the code example but must be added before the public Class declaration. The following lines of code show how to do the import and assignment in Visual Basic and C#.
Private Sub SearchRecurringAppointments() Dim appt As Outlook.AppointmentItem = Nothing Dim folder As Outlook.Folder = _ CType(Application.Session.GetDefaultFolder( _ Outlook.OlDefaultFolders.olFolderCalendar), _ Outlook.Folder) ' Set start value Dim startTime As DateTime = New DateTime(2006, 8, 9, 0, 0, 0) ' Set end value Dim endTime As DateTime = New DateTime(2006, 12, 14, 0, 0, 0) ' Initial restriction is Jet query for date range Dim filter1 As String = "[Start] >= '" & startTime.ToString("g") _ & "' AND [End] <= '" & endTime.ToString("g") & "'" Dim calendarItems As Outlook.Items = folder.Items.Restrict(filter1) calendarItems.IncludeRecurrences = True calendarItems.Sort("[Start]") ' Must use 'like' comparison for Find/FindNext Dim filter2 As String filter2 = "@SQL=" & _ Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & _ " like '%Office%'" ' Create DASL query for additional Restrict method Dim filter3 As String If (Application.Session.DefaultStore.IsInstantSearchEnabled) Then filter3 = "@SQL=" & _ Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " _ ci_startswith 'Office'" Else filter3 = "@SQL=" & _ Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " _ like '%Office%'" End If ' Use Find and FindNext methods appt = CType(calendarItems.Find(filter2), Outlook.AppointmentItem) While Not (appt Is Nothing) Dim sb As StringBuilder = New StringBuilder() sb.AppendLine(appt.Subject) sb.AppendLine("Start: " & appt.Start) sb.AppendLine("End: " & appt.End) Debug.WriteLine(sb.ToString()) ' Find the next appointment appt = CType(calendarItems.FindNext(), Outlook.AppointmentItem) End While ' Restrict calendarItems with DASL query Dim restrictedItems As Outlook.Items = _ calendarItems.Restrict(filter3) For Each apptItem As Outlook.AppointmentItem In restrictedItems Dim sb As StringBuilder = New StringBuilder() sb.AppendLine(apptItem.Subject) sb.AppendLine("Start: " & apptItem.Start) sb.AppendLine("End: " & apptItem.End) sb.AppendLine() Debug.WriteLine(sb.ToString()) Next End Sub