使用Microsoft.Office.Interop.Outlook获取发件人邮箱触发E_ABORT错误求助

可能的原因 #

1. SenderEmailAddress访问限制：在Exchange环境或共享邮箱场景下，直接读取SenderEmailAddress可能因权限不足、邮件存储格式特殊触发操作中断（E_ABORT），部分邮件的发件人信息无法通过该属性直接获取。
2. 冗余对象引发的上下文冲突：代码中通过NS.GetItemFromID(wrkmsg.EntryID)重复获取邮件对象却未使用，可能干扰Outlook的对象上下文，导致操作异常。
3. 未处理特殊发件人场景：系统邮件、内部Exchange邮件等特殊类型的邮件，SenderEmailAddress可能为空或返回Exchange专有标识，直接拼接会触发中断。

修复步骤 #

1. 移除无用代码 #

删除这段未使用的邮件对象获取逻辑，减少上下文干扰：

Dim tstmsg As Microsoft.Office.Interop.Outlook.MailItem
tstmsg = NS.GetItemFromID(wrkmsg.EntryID)

2. 改用可靠的发件人地址获取方式 #

通过Sender.AddressEntry兼容Exchange和普通邮件场景，安全获取邮箱地址：

If wrkmsg IsNot Nothing Then
    Dim senderEmail As String = String.Empty
    ' 安全校验发件人对象
    If wrkmsg.Sender IsNot Nothing AndAlso wrkmsg.Sender.AddressEntry IsNot Nothing Then
        ' 优先获取Exchange用户的SMTP地址
        Dim exchUser As Microsoft.Office.Interop.Outlook.ExchangeUser = wrkmsg.Sender.AddressEntry.GetExchangeUser()
        If exchUser IsNot Nothing Then
            senderEmail = exchUser.PrimarySmtpAddress
        Else
            ' 非Exchange用户直接取地址
            senderEmail = wrkmsg.Sender.AddressEntry.Address
        End If
    End If
    ' 添加到ListBox，空地址时仅显示主题
    ListBox1.Items.Add($"{wrkmsg.Subject} {senderEmail}".Trim())
End If

3. 优化Items集合遍历 #

提前过滤出邮件类型，减少无效对象的遍历操作：

' 仅筛选邮件类型的项
Dim mailItems As Microsoft.Office.Interop.Outlook.Items = ProcFolder.Items.Restrict("[MessageClass]='IPM.Note'")
For Each msg In mailItems
    If TypeOf msg Is Microsoft.Office.Interop.Outlook.MailItem Then
        Dim wrkmsg As Microsoft.Office.Interop.Outlook.MailItem = DirectCast(msg, Microsoft.Office.Interop.Outlook.MailItem)
        ' 上述发件人处理代码...
    End If
Next

4. 检查权限配置 #

• 确认当前Windows账户拥有目标共享邮箱的完整访问权限，能在Outlook客户端手动查看所有邮件的发件人地址。
• 若使用Exchange服务器，确保账户已被授予读取该邮箱发件人信息的权限。

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