如何以编程方式判断安装了哪些 Outlook 插件以及它们是否已启用？

Question

如何确定安装了哪些 Outlook COM 或 PIA 插件以及它们是否已启用。

我怎样才能获得这些信息，以及文件版本？

Answer 1

(1) 如果您想从另一个 Outlook 加载项内部访问此信息，您可以使用 Application.ComAddins 对象（例如，它的 Count 属性为您提供安装的加载项的数量）。您可以循环访问此集合，并检查单个 COMAddin 对象的 LoadBehaviour 属性是否正在加载或是否已禁用。

(2) 如果您想从 Outlook 外部访问信息，您可以考虑阅读 Software\Microsoft\Office\Outlook\Addins 项下的相应注册表项。

(3) 请注意，您根本不能信任此信息，因为 Office 加载项既可以为单个用户安装，也可以为所有用户安装。因此，您绝对无法访问已安装的加载项，只能通过读取 HKLM 下的上述键 (a) 和 HKCU 下的 (b) 来访问运行您的应用程序/程序的当前用户。 Application.COMAddins 对象向您显示混合在一起的两种信息。

(4) 我不记得 COMAddin 对象或注册表中是否有可用的版本号。要访问它，您必须读取注册表以查找加载项的文件或程序集，并访问文件版本。请注意，用 Visual Basic 6 或其他语言编写的“旧”COM 外接程序具有除 VSTO 外接程序或基于外接程序 Express 工具的外接程序之外的其他注册表项。

Answer 2

要确定哪些已安装的加载项处于活动状态（已启用/已加载）：

'Loop through all installed add-ins and show whether they are active or not.
Dim app As New Outlook.Application
Dim name As String
Dim loaded As Boolean
For i = 1 To app.COMAddIns.Count
    name = app.COMAddIns.Item(i).Description
    loaded = app.COMAddIns.Item(i).Connect 'Returns True for active, False for inactive
    MsgBox(name & ": " & loaded)
Next

要按名称检查特定加载项的状态：

Dim app As New Outlook.Application
Dim addinName As String = "ADD-IN NAME"
Dim loaded As Boolean = app.COMAddIns.Item(addinName).Connect
MsgBox(addinName & ": " & loaded)

Answer 3

您甚至可以从 Outlook 外部访问该信息。

    Dim count As Integer
    Dim app As New Outlook.Application

    count = app.COMAddIns.Count

    For i = 1 To count

        MsgBox(app.COMAddIns.Item(0).Description)

    Next