Outlook VBA调用Results.GetNext遇最后一项报对象不支持该方法如何解决

架构老林

2026-9-26

问题原因

核心错误是对象变量赋值缺少Set关键字：VBA中对Object类型变量赋值必须使用Set，你当前代码中i = rsts.GetNext省略了Set，会尝试读取对象的默认属性赋值，当遍历到最后一个条目后GetNext返回Nothing，没有可用的默认属性，就触发440错误。
附加隐患：如果开启i.Move操作，直接遍历Results集合并修改条目位置，会导致集合实时变动、索引错乱，出现漏处理或报错的问题。

修复方案

1 基础修复（解决440报错）

把出错行的i = rsts.GetNext改为Set i = rsts.GetNext即可，修正后的遍历代码如下：

Dim i As Object
Set i = rsts.GetFirst
Do While Not i Is Nothing
    Debug.Print "Move '" & i.Subject & "' to '" & oFolder.Parent.FolderPath & "'"
    Set i = rsts.GetNext ' 补充Set关键字后错误消失
Loop

2 适配移动操作的稳定写法（可选）

如果要实际执行移动操作，建议先把所有搜索结果存入临时数组，再遍历数组执行移动，避免遍历过程中集合变动导致的异常：

' 先把所有结果存入临时数组
Dim arrItems() As Object
ReDim arrItems(1 To rsts.Count)
Dim idx As Long
For idx = 1 To rsts.Count
    Set arrItems(idx) = rsts.Item(idx)
Next

' 遍历数组执行移动操作
Dim targetFolder As Folder
Set targetFolder = oFolder.Parent
For idx = LBound(arrItems) To UBound(arrItems)
    Debug.Print "Move '" & arrItems(idx).Subject & "' to '" & targetFolder.FolderPath & "'"
    arrItems(idx).Move targetFolder
Next