使用Interaction.CreateObject创建Outlook.Application在新版Outlook中失效

一、新版本Outlook的核心机制变化 #

• COM对象创建权限收紧：2024年推出的该Outlook版本强化了安全策略，默认限制非信任程序通过CreateObject直接创建Outlook COM对象，防范恶意程序滥用邮件客户端。
• 托管应用模式强制启用：企业部署的该版本可能启用了"托管应用程序"模式，仅允许经IT认证的应用通过官方API调用Outlook，直接创建ActiveX组件会被拦截。
• 位数兼容性严格校验：新版本会强制检查调用程序与Outlook的位数匹配（如32位程序调用64位Outlook），不匹配则拒绝创建COM对象。

二、可行的替代实现方案 #

1. 使用官方Outlook Interop库 #

直接引用Microsoft.Office.Interop.Outlook NuGet包，用官方构造方法替代Interaction.CreateObject，更符合微软规范且兼容新版安全策略：

Imports Microsoft.Office.Interop.Outlook

Dim outlookApp As New Application()
Dim mailItem As MailItem = outlookApp.CreateItem(ItemType.olMailItem)
' 后续邮件主题、收件人、内容设置逻辑保持不变

2. 改用Microsoft Graph API #

如果客户使用Microsoft 365环境，推荐用Graph API替代COM调用，无需依赖本地Outlook客户端，安全且无兼容性问题：

' 示例：通过Graph API发送邮件（需提前在Azure AD配置应用权限）
Imports Microsoft.Graph
Imports Microsoft.Identity.Client

Dim authenticationProvider As IAuthenticationProvider = ' 实现身份验证逻辑
Dim graphClient As New GraphServiceClient(authenticationProvider)

Dim message As New Message() With {
    .Subject = "测试邮件",
    .Body = New ItemBody() With {.ContentType = BodyType.Text, .Content = "邮件内容"},
    .ToRecipients = {New Recipient() With {.EmailAddress = New EmailAddress() With {.Address = "user@example.com"}}}
}

Await graphClient.Me.SendMail(message, saveToSentItems:=True).Request().PostAsync()

3. 调整Outlook安全策略（需IT部门配合） #

若必须保留原有COM调用方式，可联系客户IT部门做以下配置：

• 将你的应用程序路径添加到Outlook信任中心的"受信任位置"
• 通过组策略启用"允许非信任程序调用Outlook COM对象"的相关选项

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