这里有一些代码可以做两件事:1)检查它是否已安装 2)获取已安装的版本号
希望这可以帮助
Imports Microsoft.Win32
Module Outlook
Public Class Outlook
Public Shared Function isInstalled() As Boolean
Dim regClasses As RegistryKey = Registry.ClassesRoot
Dim rtn As Boolean
Dim reg As RegistryKey = regClasses.OpenSubKey("Outlook.Application")
If reg Is Nothing Then
rtn = False
Else
rtn = True
End If
reg.Close()
Return rtn
End Function
Public Shared Function version() As String
Dim rtn As String = ""
Dim objApp As Object
If isInstalled() Then
objApp = CreateObject("Outlook.Application")
rtn = objApp.Version
End If
Return rtn
End Function
End Class
End Module