VBA Advanced Filter Error

[jstevens]

I am receiving the following error message when I try to run code for an advanced filter: Cannot parse condition. Error at "CI_STARTWITH".

Code: Select all

Sub FilterOnInbox()
    Dim olFolder As Object
    Dim filteredItems As Object
    Dim folderItems As Object
    Dim strFilter As String
    Dim itm As Object
    Dim str As String

    Set olFolder = Application.Session.GetDefaultFolder(olFolderInbox)   'Inbox

'Looks within Inbox for messages sent by "My Stuff"
strFilter = "((""http://schemas.microsoft.com/mapi/proptag/0x0065001f"" CI_STARTSWITH 'My' AND ""http://schemas.microsoft.com/mapi/proptag/0x0065001f"" CI_STARTSWITH 'Stuff') OR (""http://schemas.microsoft.com/mapi/proptag/0x0042001f"" CI_STARTSWITH 'My' AND ""http://schemas.microsoft.com/mapi/proptag/0x0042001f"" CI_STARTSWITH 'Stuff'))"

    Set filteredItems = olFolder.Items.Restrict(strFilter)
    
    If filteredItems.count = 0 Then
        str = "Not found"
    Else
        For Each itm In filteredItems
            str = str & itm.Subject & vbCrLf
        Next
    End If
    MsgBox str

Your suggestions are appreciated.

[HansV]

Combining two CI_STARTSWITH conditions with AND doesn't make sense: an item cannot start with two different strings at once.
Apart from that, I cannot make it work. If I copy a valid condition from the SQL tab of the Filter window and paste it into VBA (doubling the quotes), I still get an error.

I'd ask this question in Microsoft's Outlook for Developers forum. You'll probably get help from Outlook MVPs there.

[jstevens]

Hans,

I was able to develop an alternate solution based on a posting found in the Outlook for Developers forum.

Thanks for pointing me to the forum.

[HansV]

Good to hear that.