Outlook 2013宏运行时错误438：对象不支持该属性或方法

错误原因 #

1. 收件箱中的项目不都是邮件对象（比如会议邀请、任务请求、系统通知等），这类对象没有.To属性，循环遍历到它们时就会触发“对象不支持该属性或方法”的438错误。
2. 直接修改.To属性通常无效，因为.To只是显示用的文本，实际收件人信息存储在Recipients集合中，直接赋值无法真正修改收件人数据。

修正后的宏代码 #

Attribute VB_Name = "ThisOutlookSession"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit

Public WithEvents olInboxItems As Items
Attribute olInboxItems.VB_VarHelpID = -1

Sub ChangeFieldTo()
    On Error GoTo GetChangeFieldTo_err

    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim mailItem As MailItem
    
    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    
    ' 检查收件箱是否为空
    If Inbox.Items.Count = 0 Then
        MsgBox "收件箱中没有邮件。", vbInformation, "无内容"
        Exit Sub
    End If
    
    ' 遍历并修改邮件收件人
    For Each mailItem In Inbox.Items
        ' 只处理邮件对象，跳过其他类型项目
        If TypeOf mailItem Is MailItem Then
            Dim targetAddr As String
            targetAddr = "k...user@gmail.com"
            Dim isTargetExists As Boolean
            isTargetExists = False
            
            ' 检查当前收件人是否已包含目标邮箱
            Dim recip As Recipient
            For Each recip In mailItem.Recipients
                If recip.Address = targetAddr Then
                    isTargetExists = True
                    Exit For
                End If
            Next recip
            
            If Not isTargetExists Then
                ' 清空原有收件人
                mailItem.Recipients.RemoveAll
                ' 添加目标邮箱作为收件人
                mailItem.Recipients.Add targetAddr
                ' 解析收件人确保地址有效
                mailItem.Recipients.ResolveAll
                ' 保存修改
                mailItem.Save
            End If
        End If
    Next mailItem

GetChangeFieldTo_exit:
    Set mailItem = Nothing
    Set ns = Nothing
    MsgBox "操作完成！", vbInformation
    Exit Sub

GetChangeFieldTo_err:
    MsgBox "发生意外错误。" _
        & vbCrLf & "请向管理员提供以下信息：" _
        & vbCrLf & "宏名称: ChangeFieldTo" _
        & vbCrLf & "错误代码: " & Err.Number _
        & vbCrLf & "错误描述: " & Err.Description _
        , vbCritical, "错误！"
    Resume GetChangeFieldTo_exit
End Sub

关键修改说明 #

• 类型过滤：将循环对象声明为MailItem，并通过TypeOf判断确保只处理邮件，避免非邮件对象触发属性错误。
• 正确修改收件人：通过操作Recipients集合修改收件人，而非直接赋值.To属性，确保真正改变邮件的收件人数据。
• 地址验证：遍历Recipients集合判断目标邮箱是否已存在，避免重复修改；添加收件人后调用ResolveAll确保地址被Outlook正确识别。

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