如何可靠区分Outlook Classic与新版Outlook？非注册表/格式检测方案

针对你的需求，以下几种规范、可靠的检测方法，无需依赖临时注册表项或拖放对象：

方法1：通过Outlook COM对象的专属属性检测 #

新版Outlook（Outlook for Windows）提供了IsNewOutlook专属属性，经典版无此属性。VB中可以通过错误捕获判断：

Dim olApp As Object
Dim isNewOutlook As Boolean
isNewOutlook = False

' 创建Outlook应用实例（若未启动会启动后台进程）
Set olApp = CreateObject("Outlook.Application")

' 尝试读取专属属性
On Error Resume Next
isNewOutlook = olApp.IsNewOutlook
On Error GoTo 0

' 结果判断
If isNewOutlook Then
    Debug.Print "当前为新版Outlook"
Else
    Debug.Print "当前为经典版Outlook"
End If

Set olApp = Nothing

优势：不受安装类型（MSI/Click-to-Run）限制，直接关联当前活跃的Outlook环境，准确率最高。

方法2：通过Click-to-Run配置注册表项判断 #

针对Click-to-Run安装的Office（大多数365/2021版本），可检查注册表项判断：

• 路径：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\Configuration
• 查看ProductReleaseIds字符串值：
  • 包含OutlookRetailNew：新版Outlook
  • 包含OutlookRetail：经典版Outlook

VB读取示例：

Dim regValue As String
regValue = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration\ProductReleaseIds")

If InStr(regValue, "OutlookRetailNew") > 0 Then
    Debug.Print "新版Outlook（Click-to-Run）"
ElseIf InStr(regValue, "OutlookRetail") > 0 Then
    Debug.Print "经典版Outlook（Click-to-Run）"
Else
    Debug.Print "MSI安装的经典版Outlook或未安装"
End If

注意：MSI安装的经典版无此注册表项，需单独处理。

方法3：通过Outlook安装状态注册表项判断 #

查看用户注册表中新版Outlook的安装标记：

• 路径：HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Outlook\Setup
• 查看NewOutlookInstalled DWORD值：
  • 值为1：已安装新版Outlook
  • 值为0或不存在：经典版Outlook

VB读取示例：

Dim regValue As Variant
On Error Resume Next
regValue = CreateObject("WScript.Shell").RegRead("HKCU\SOFTWARE\Microsoft\Office\16.0\Outlook\Setup\NewOutlookInstalled")
On Error GoTo 0

If regValue = 1 Then
    Debug.Print "已安装新版Outlook"
Else
    Debug.Print "经典版Outlook"
End If

方法4：WMI查询已安装程序 #

通过WMI检索系统中已安装的Outlook版本，适合无需启动Outlook的场景：

Dim wmiService As Object
Dim installedApps As Object
Dim app As Object

Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set installedApps = wmiService.ExecQuery("SELECT * FROM Win32_RegistrySoftware WHERE DisplayName LIKE '%Microsoft Outlook%'")

Dim isNewOutlookInstalled As Boolean
isNewOutlookInstalled = False

For Each app In installedApps
    If InStr(app.DisplayName, "(New)") > 0 Then
        isNewOutlookInstalled = True
        Exit For
    End If
Next

If isNewOutlookInstalled Then
    Debug.Print "新版Outlook已安装"
Else
    Debug.Print "经典版Outlook"
End If

Set wmiService = Nothing
Set installedApps = Nothing

优势：无需依赖Outlook进程，适合提前检测场景；劣势：WMI查询速度较慢。

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