能否在VBA宏中调用Outlook加载项？如何创建Smart Email智能邮件？

我编写了一个Excel VBA宏，可创建并显示自动填充BCC、主题、正文（数据来自工作表特定单元格）的普通Outlook邮件。我的Outlook已添加名为“Smart Email”的加载项，该加载项可追踪智能邮件的打开率与点击率。我希望通过该VBA宏创建智能邮件而非普通邮件，现咨询：

• 如何查找Outlook加载项的对象名称？
• 是否存在可替代标准语句emailApplication.createitem(0)的Smart Email加载项对象？
• 还是对象库中仅显示微软默认项？

附VBA代码：

Sub CreateEmail()

'Set the variables:
Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.createitem(0)

'To build the email. The body text, email addresses and subject line are saved in the excel cells listed below:
With emailItem
    .Body = Range("D17")
    .BCC = Range("D15")
    .Subject = Range("D16")
    .Display
End With

End Sub

1. 查找Outlook加载项的对象名称 #

• 优先查看加载项官方文档：商业加载项通常会提供VBA集成的API说明，明确标注对象模型和调用方式。
• 通过Outlook VBA编辑器排查：打开Outlook的VBA编辑器（按Alt+F11），点击工具→引用，在列表中查找含“Smart Email”相关名称的引用项，选中后按F2打开对象浏览器，查看其对象结构。
• 遍历COM加载项集合获取信息：在VBA中运行以下代码，在立即窗口（Ctrl+G）查看加载项的ProgID和描述：

  Sub ListCOMAddIns()
      Dim addin As COMAddIn
      For Each addin In Outlook.Application.COMAddIns
          Debug.Print "名称: " & addin.Description & vbCrLf & "ProgID: " & addin.ProgID
      Next addin
  End Sub
  

  找到对应ProgID后，可通过CreateObject(对应ProgID)尝试获取对象实例，进一步探索可用方法。

2. 是否存在替代emailApplication.createitem(0)的Smart Email对象 #

取决于加载项是否暴露VBA接口：

• 如果加载项提供了专属的智能邮件创建能力，其对象模型中通常会包含类似CreateSmartEmail()的方法，直接替代原生CreateItem(0)。
• 若加载项仅通过UI扩展实现功能（比如在Outlook界面添加按钮），可能没有直接的VBA调用接口，这种情况下可尝试模拟点击加载项按钮（通过SendKeys或UI自动化，但稳定性较差）。

3. 对象库是否仅显示微软默认项 #

默认情况下VBA对象浏览器只显示已引用的对象库：

• 如果“Smart Email”加载项提供了类型库（.tlb文件），可在VBA编辑器的工具→引用中手动添加，添加后就能在对象浏览器中看到加载项的自定义对象和方法。
• 若加载项未公开类型库，对象浏览器只会显示微软默认的Outlook对象模型。

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