Outlook VBA中Application.AdvancedSearch方法运行失败原因咨询

• 对象赋值缺失Set关键字：VBA中所有对象类型的变量赋值必须使用Set，原代码中SearchObject = olApp.AdvancedSearch(...)直接赋值对象，会触发类型不匹配错误，是代码运行到该行直接报错的首要原因。
• Scope参数格式不符合要求：Application.AdvancedSearch方法的Scope参数要求传入目标文件夹的完整FolderPath属性值，不支持直接传入文件夹对象的默认字符串转换结果、也不支持直接写Inbox这类文件夹显示名。原代码中两种Scope写法都不符合规范，搜索范围无法被识别。
• 同步读取异步搜索结果：AdvancedSearch是异步执行方法，调用后会立刻返回，实际搜索在后台执行，原代码在调用方法后立刻遍历SearchObject.Results时，搜索尚未完成，会触发空对象或结果不全的错误。
• 时间筛选格式不兼容：MAPI搜索的时间条件默认解析mm/dd/yyyy hh:mm:ss格式的时间字符串，原代码使用dd mmm yyyy hh:mm格式，会因系统区域设置差异导致筛选条件解析失败，即使搜索能正常启动也无法返回正确结果。
• 根文件夹取值逻辑不可靠：原代码用olNS.Folders(1)取根文件夹，在多账户配置场景下会取错存储位置。

1. 将代码迁移到ThisOutlookSession模块，使用模块级WithEvents变量声明Outlook应用对象，监听AdvancedSearchComplete事件，在搜索完成后再处理结果。
2. 所有对象赋值补充Set关键字。
3. Scope参数统一使用目标文件夹的.FolderPath属性值拼接，单引号包裹，多文件夹用逗号分隔。
4. 修正时间筛选的格式为mm/dd/yyyy hh:mm:ss，避免区域设置影响。
5. 给搜索任务设置唯一Tag，在完成事件中匹配对应搜索任务，避免和其他触发的搜索逻辑冲突。
6. 增加首次运行的默认时间兜底值，避免没有关闭时间记录时逻辑报错。

Option Explicit
' 模块级应用对象声明，保证事件可正常触发
Private WithEvents olApp As Outlook.Application
Private Const CLOSE_TIME_NOTE_SUBJECT As String = "App Close Time"
Private Const SEARCH_TAG As String = "StartupNewItemSearch"

Private Sub Application_Startup()
    Set olApp = Outlook.Application
    Call Process_New_Items
End Sub

' 搜索完成事件回调
Private Sub olApp_AdvancedSearchComplete(ByVal SearchObject As Search)
    Dim itm As Object
    ' 仅处理当前启动任务触发的搜索
    If SearchObject.Tag = SEARCH_TAG Then
        For Each itm In SearchObject.Results
            If TypeName(itm) = "MailItem" Then
                Process_MailItem itm
            End If
        Next itm
    End If
End Sub

Public Sub Process_New_Items()
    Dim olNS As Outlook.NameSpace
    Dim tempMail As MailItem
    Dim notesFolder As Outlook.Folder
    Dim timeFilter As String
    Dim lastCloseTime As Date
    Dim utcCloseTime As Date
    Dim searchFilter As String
    Dim searchScope As String
    Dim targetSearch As Outlook.Search
    Dim accountRootFolder As Outlook.Folder
    Dim itm As Object
    
    Set olNS = olApp.GetNamespace("MAPI")
    ' 取默认投递账户的根文件夹，兼容多账户场景
    Set accountRootFolder = olNS.Accounts.Item(1).DeliveryStore.GetRootFolder()
    Set tempMail = olApp.CreateItem(olMailItem)
    Set notesFolder = olNS.GetDefaultFolder(olFolderNotes)
    
    ' 读取上次关闭时间，无记录时默认取7天内数据兜底
    lastCloseTime = VBA.DateAdd("d", -7, Now())
    timeFilter = "[Subject] = '" & CLOSE_TIME_NOTE_SUBJECT & "'"
    For Each itm In notesFolder.Items.Restrict(timeFilter)
        lastCloseTime = itm.CreationTime
        Exit For
    Next itm
    
    ' 转换为UTC时间，修正时间格式适配MAPI搜索规则
    utcCloseTime = tempMail.PropertyAccessor.LocalTimeToUTC(lastCloseTime)
    searchFilter = "@SQL=""urn:schemas:httpmail:datereceived"" >= '" & Format(utcCloseTime, "mm/dd/yyyy hh:mm:ss") & "'"
    ' 拼接合法Scope参数
    searchScope = "'" & accountRootFolder.FolderPath & "'"
    
    ' 正确赋值搜索对象，传入唯一Tag标识
    Set targetSearch = olApp.AdvancedSearch(searchScope, searchFilter, True, SEARCH_TAG)
End Sub

' 独立邮件处理子例程
Private Sub Process_MailItem(mail As MailItem)
    ' 原有后续处理逻辑写在这里
    Debug.Print mail.Subject, mail.ReceivedTime
End Sub

补充说明：如果需要指定搜索收件箱、已发送邮件等特定文件夹，Scope按如下格式拼接即可，禁止直接使用文件夹显示名：

' 示例：搜索范围为收件箱+已发送邮件
searchScope = "'" & olNS.GetDefaultFolder(olFolderInbox).FolderPath & "','" & olNS.GetDefaultFolder(olFolderSentMail).FolderPath & "'"

内容的提问来源于stack exchange，提问作者Adam