VBA无法使用.Find在outlook中查找电子邮件

Sub SearchEmails()
    Dim OutlookApp As Outlook.Application
    Dim OutlookNamespace As Outlook.Namespace
    Dim InboxFolder As Outlook.MAPIFolder
    Dim SearchResults As Outlook.Items
    Dim Filter As String
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set InboxFolder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 设置搜索条件
    Filter = "@SQL=""urn:schemas:httpmail:subject"" like '%关键词%'"
    
    ' 在收件箱中搜索符合条件的邮件
    Set SearchResults = InboxFolder.Items.Restrict(Filter)
    
    ' 遍历搜索结果
    For Each Item In SearchResults
        ' 处理找到的邮件
        Debug.Print Item.Subject
    Next Item
    
    ' 释放对象
    Set SearchResults = Nothing
    Set InboxFolder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
End Sub