Search the Inbox for Items with Subject Containing "Office"
This topic shows two code samples that use DASL queries to search for items in the Inbox that contain "Office" in the subject line. The first code sample uses Folder.GetTable and the second uses Application.AdvancedSearch to apply the DASL query.
Each of the code samples uses the content indexer keyword ci_phrasematch in a DASL filter on the property http://schemas.microsoft.com/mapi/proptag/0x0037001E (the Subject property referenced by the MAPI ID namespace) to search for the word "office" in the subject. It applies the filter to items in the Inbox (by using Folder.GetTable or Application.AdvancedSearch), and prints the subject line of each item returned from the search.
The match is not case-sensitive so any item containing "Office" or "office" in the subject will be returned by Folder.GetTable or Application.AdvancedSearch. Notice that each sample prints the subject of each row in the resultant Table. It chooses to use the lighter weight Table object instead of the Search.Results object for better performance. The Subject property is included in a Table returned by a search on any folder. But like any folder in Outlook, the Inbox can contain heterogenous items and is not confined to mail items. If you want to access a property that is specific to a certain item type in the Inbox, use Columns.Add to include that property and update the Table, and for each row returned in the Table, check the message type of the item before accessing the property.
This code sample uses Folder.GetTable to do the search:
Sub RestrictTableForInbox() Dim oT As Outlook.Table Dim strFilter As String Dim oRow As Outlook.Row 'Construct filter for Subject containing 'Office' Const PropTag As String = "http://schemas.microsoft.com/mapi/proptag/" strFilter = "@SQL=" & Chr(34) & PropTag _ & "0x0037001E" & Chr(34) & " ci_phrasematch 'Office'" 'Do search and obtain Table on Inbox Set oT = Application.Session.GetDefaultFolder(olFolderInbox).GetTable(strFilter) 'Print Subject of each returned item Do Until oT.EndOfTable Set oRow = oT.GetNextRow Debug.Print oRow("Subject") Loop End Sub
This code sample uses Application.AdvancedSearch to do the search:
Public blnSearchComp As Boolean Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) MsgBox "The AdvancedSearchComplete Event fired" blnSearchComp = True End Sub Sub TestSearchWithTable() Dim oSearch As Search Dim oTable As Table Dim strQuery As String Dim oRow As Row blnSearchComp = False 'Construct filter. 0x0037001E represents Subject strQuery = _ "http://schemas.microsoft.com/mapi/proptag/0x0037001E" & _ " ci_phrasematch 'Office'" 'Do search Set oSearch = _ Application.AdvancedSearch("Inbox", strQuery, False, "Test") While blnSearchComp = False DoEvents Wend 'Obtain Table Set oTable = oSearch.GetTable 'Print Subject of each returned item Do Until oTable.EndOfTable Set oRow = oTable.GetNextRow Debug.Print oRow("Subject") Loop End Sub