VB6迁移至VB.NET/C#后Outlook对象Option Strict开启下的早期绑定问题

开启Option Strict On后，原代码依赖Object类型的晚期绑定会因隐式类型转换被禁止而报错。利用已安装的Microsoft.Office.Interop.Outlook NuGet包，改用早期绑定即可解决问题，步骤如下：

1. 导入命名空间 #

在代码文件顶部添加Outlook互操作的命名空间引用：

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System.Runtime.InteropServices ' 用于Marshal类

2. 替换为早期绑定代码 #

将原事件处理代码修改为强类型版本：

Private Sub FabViewFeedBackToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FabViewFeedBackToolStripMenuItem_Click
    ' 通过Outlook发送反馈邮件
    Dim outlApp As Outlook.Application = Nothing

    ' 优先获取已运行的Outlook实例，避免重复启动
    Try
        outlApp = DirectCast(Marshal.GetActiveObject("Outlook.Application"), Outlook.Application)
    Catch ex As COMException
        ' 未运行则创建新实例
        outlApp = New Outlook.Application()
    End Try

    If outlApp IsNot Nothing Then
        ' 显式创建邮件项，使用枚举替代魔法数字0
        Dim omsg As Outlook.MailItem = DirectCast(outlApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
        omsg.To = "michael.lashansky@ngc.com"
        omsg.Subject = "FabView FeedBack"
        omsg.Display(True) ' 显示邮件窗口供用户编辑发送
    End If
End Sub

关键说明 #

• 用强类型对象（Outlook.Application、Outlook.MailItem）替代Object，完全符合Option Strict的类型安全要求。
• 使用Outlook.OlItemType.olMailItem枚举替代原代码中的数字0，避免魔法值，提升代码可读性和可维护性。
• 采用Marshal.GetActiveObject获取现有Outlook实例，仅在必要时新建，更符合桌面应用的行为逻辑。
• 所有类型转换均通过DirectCast显式完成，消除隐式转换导致的编译错误。

注意事项 #

• 确保用户机器上已安装对应版本的Outlook（Interop包通常支持Outlook 2010及以上版本）。
• 若无需依赖Outlook客户端，可考虑使用SMTP协议直接发送邮件，避免Office版本兼容性问题。

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