Outlook Object Model: Application.AdvancedSearch

option explicit

sub main() ' {

    dim scope as string
        scope = "'" & session.getDefaultFolder(olFolderInbox   ).folderPath & "'," & _
                "'" & session.getDefaultFolder(olFolderSentMail).folderPath & "'"

    dim query as string
        query = "urn:schemas:mailheader:subject = 'XYZ'"

    advancedSearch scope, query, searchSubFolders := false, tag := "tq84"

end sub ' }

option explicit

private sub application_advancedSearchComplete(byVal found as search) ' {
  '
  ' Put this event into 'ThisOutlookSession' module
  '
    debug.print "search with tag " & found.tag & " completed"

  '
  ' dim tab as table
  ' set tab = found.getTable

    dim email as mailItem
    for each email in found.results
         email.display
    next email

end sub ' }