Excel VBA读取Office 365 Outlook邮件SenderAddress报287错误如何解决

该需求可以实现，你遇到的问题核心有两点：运行时错误287是Outlook安全拦截机制触发，非受信程序访问邮件地址属性时被默认阻止；EX类型发件人地址为空是旧CDO/MAPI.Session组件不兼容Office 365 Exchange架构，同时原代码存在重复初始化Outlook实例的冗余逻辑，会额外触发安全校验。

修复说明 #

• 移除重复的Outlook实例初始化逻辑，降低安全拦截触发概率
• 废弃旧的MAPI.Session组件，使用Outlook原生AddressEntry.GetExchangeUser方法读取内部发件人SMTP地址，完全兼容Office 365
• 优化登录校验逻辑，提升运行稳定性

修复后完整代码 #

运行前请先在VBA编辑器中点击「工具-引用」，勾选Microsoft Outlook XX.X Object Library：

Option Explicit

Sub GetRetailInboxSenderInfo()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim iRows As Integer
    
    ' 仅初始化一次Outlook实例，避免重复触发安全校验
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    ' 已打开Outlook时可省略该行，离线场景下可确保登录成功
    xNameSpace.Logon "", "", False, False
    
    ' 定位到收件箱下的Retail文件夹
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox).Folders("Retail")
    iRows = 2
    
    For Each objItem In xFolder.Items
        If objItem.Class = olMail Then
            Set objMail = objItem
            ' 写入基础邮件属性
            Cells(iRows, 2) = objMail.To
            Cells(iRows, 3) = objMail.Subject
            Cells(iRows, 4) = objMail.ReceivedTime
            
            ' 兼容处理Exchange内部发件人和外部SMTP发件人
            If objMail.SenderEmailType = "EX" Then
                Dim senderEntry As Outlook.AddressEntry
                Set senderEntry = objMail.Sender
                If Not senderEntry Is Nothing Then
                    ' 从Office 365 Exchange用户属性中读取主SMTP地址
                    Cells(iRows, 1) = senderEntry.GetExchangeUser.PrimarySmtpAddress
                End If
            Else
                Cells(iRows, 1) = objMail.SenderEmailAddress
            End If
            
            iRows = iRows + 1
        End If
    Next
    
    ' 释放所有对象资源
    Set objMail = Nothing
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
End Sub

异常处理 #

如果仍然触发运行时错误287，按以下方案处理：

• 打开Outlook客户端，点击「文件-信任中心-信任中心设置-编程访问」，选择「从不向我发出可疑活动警告」（需要本地管理员权限）
• 运行代码前先保持Outlook客户端处于登录打开状态，可大幅降低安全拦截概率

内容的提问来源于stack exchange，提问作者shubham kumar sharma