读取 Outlook HTML 正文时出错

Question

当我尝试在新机器上运行宏时，我遇到了error 438 : object doesn't support this property or method：

Set HTMLdoc = New MSHTML.HTMLDocument
With HTMLdoc
.body.innerHTML = OutlookMail.HTMLBody **'******** Error Line**
Set tables = .getElementsByTagName("table")
End With     

Answer 1

是的，它在我的系统中工作正常。但是当我尝试在新系统中安装它时，它会产生此错误。

代码没有变化，我正在一些 outllok 邮件上运行相同的 excel 宏文件。 即使是我用于测试的 Outlook 邮件，我也在新机器中使用相同的文件。

此外，工具>>参考库，我已经检查了所有项目，如MS HTML对象库，MS Outlook 16.0对象库和其他默认复选框在系统中保持不变。

代码在到达此行时突然中断： .身体。Innerhtml = Outlookmail。HTML博迪

Answer 2

.body.innerHTML = OutlookMail.HTMLBody

正文的内部 HTML 标记不等于 Outlook 邮件正文的 HTML 标记。它包括之前应删除的其他外部 html 标记。

无论如何，VBA 宏不是为在多台计算机上分发它们而设计的。这正是引入COM加载项的目的。在这种情况下，你将能够为解决方案创建安装程序，以便为所有用户自动部署它。此外，您将能够在安装时检查并安装(如果需要(所需的先决条件。请参阅演练：创建适用于 Outlook 的第一个 VSTO 外接程序以快速入门。