Beta 2

does not error out, but the filter does not seem to work
note: messages exist in the Inbox that wd match filter criteria

? FindMessages()
562 unfiltered
@SQL="urn:schemas:httpmail:Subject" CI_PHRASEMATCH 'Flight'
0 filtered

Public Function FindMessages()
Const QT As String = """"
On Error GoTo HandleErr
Dim olapp As Outlook.Application
Dim olns As Outlook.NameSpace
Dim olfldr As Outlook.Folder
Dim olmi As Outlook.MailItem
Dim olitms As Outlook.Items
Dim matchedItems As Outlook.Items
Dim strFilter As String

Set olapp = New Outlook.Application
Set olns = olapp.GetNamespace("MAPI")
Set olfldr = olns.GetDefaultFolder(olFolderInbox)
Set olitms = olfldr.Items

'===== available fields ====='
'attachmentfilename
'httpmail -BCC
'httpmail -CC
'content-disposition-type
'content-media-type
'httpmail -Date
'datereceived
'httpmail -From
'HasAttachment
'htmldescription
'Importance
'normalizedsubject
'Priority
'httpmail-reply-to
'Sender
'Subject
'textdescription
'thread -topic
'to

'===== Keywords ====='
'CI_STARTSWITH
'CI_PHRASEMATCH

'strFilter = "@SQL=" & QT & "urn:schemas:httpmail:HasAttachment" & QT &
" = 1"
strFilter = "@SQL=" & QT & "urn:schemas:httpmail:Subject" & QT & "
CI_PHRASEMATCH 'Flight'"
Debug.Print olitms.Count & " unfiltered"
Debug.Print strFilter
Set matchedItems = olitms.Restrict(strFilter)
Debug.Print matchedItems.Count & " filtered"
Exit_He
On Error Resume Next
Set matchedItems = Nothing
Set olitms = Nothing
Set olfldr = Nothing
Set olns = Nothing
Set olapp = Nothing
Exit Function
HandleErr:
Debug.Print "Error Number " & Err.Number & ": " & Err.Description
Resume Exit_He
End Function