Filter outlook sent items in vba failing for emails with multiple recipients

Question

I'm trying to filter delivered items in Excel depending on the recipient's email address. See the prior effort for the first part of this challenge, which is successful if there is only one recipient listed in the "TO" section.

Nevertheless, when there are two receivers on the email, filter 3 below frequently fails to detect delivered items. The first address of the two recipients in the outlook email is the one I'm filtering for.

Any ideas on how to also gather emails sent with person X's email address in the "TO" field but with additional recipients? And why did it start out failing?

Sirname = "Smith"
emailStr = "John.Smith@gmail.com"

    filter2 = "@SQL= http://schemas.microsoft.com/mapi/proptag/0x0E04001F" & " LIKE '%" & SirName & "%'"
    filter3 = "@SQL= http://schemas.microsoft.com/mapi/proptag/0x0E04001F" & " LIKE '%" & emailStr & "%'"

    Set olSentFldrItems = olSentFldr.Items.Restrict(filter2)
        
    Set olSentFldrItems2 = olSentFldr.Items.Restrict(filter3)

This results in olSentFldrItems being empty though sadly in this scenario, and also SirName filter did not pick up this particular email in my sent items.
the suggested answer results in this error

Answer 1

The PR DISPLAY TO parameter provides a list of display names (which may or may not include an address), not SMTP addresses, therefore there is no assurance that the email address will even be there.

On the Extended MAPI level (C++ or Delphi), you'd need to create a subrestriction (RES_SUBRESTRICTION) on PR_MESSAGE_RECIPIENTS that contains RES_CONTENT restriction on PR_EMAIL_ADDRESS / FL_SUBSTRING | FL_IGNORECASE.

If using Redemption (I am its author) is an option, it creates a recipient subrestriction if you specify Recipients (or To/CC/BCC) in a query:

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set olSentFldr = Session.GetDefaultFolder(olFolderSentMail)
emailStr = "John.Smith@gmail.com"

filter = "Recipients LIKE '%" & emailStr & "%'"
Set olSentFldrItems = olSentFldr.Items.Restrict(filter)