使用Excel VBA通​​过模板在Outlook 2010中创建电子邮件

Question

我的代码在XP上的Excel / Outlook 2003中运行良好，现在正在运行Windows 7 Excel / Outlook 2010，并收到错误消息：

运行时错误“ 287”：应用程序定义或对象定义的错误。

我的代码基于以下答案： 通过使用Outlook模板和设置变量从Excel 2007 VBA发送电子邮件

我正在创建我的Outlook对象和mailitem，如下所示：

Dim MyOlApp
Dim MyOlItem
Set MyOlApp = CreateObject("Outlook.Application")
Set MyOlItem = MyOlApp.CreateItemFromTemplate(Range("oftLocation").Value) 'user defined location

我引用MyOlItem后出现错误，该代码替换了.htmlBody中的.htmlBody

修改为.Body并没有区别，显示相同的错误。

我在VBA中的引用设置为：

• VBA
• Microsoft Excel 14.0对象库
• OLE自动化
• Microsoft Office 14.0对象库
• Microsoft Forms 2.0对象库
• Microsoft脚本运行时

Answer 1

这还不是答案，但是我想收集评论中正在发生的事情，因为我认为这是到目前为止所看到的最好的方向。

我已经测试过您问题中的代码，并且使用Outlook 2010和Excel 2010对我来说效果很好。

当Excel尝试与Outlook进行交互时，Programmatic Access设置将发挥作用。

我相信，如果您的杀毒软件已过期，它们将设置为警告状态。 这类似于Windows检测AntiVirus状态的方式。 因此，当您从Excel访问Outlook时，通常会出现一个提示，要求获得许可g。 就我而言，在正常情况下，您将允许该操作，并且代码将正常进行。

但是，我看到人们发现错误287的逻辑是用户在该提示下单击否。 这似乎并不适合你的情况。 您需要仔细查看Outlook中与Programmatic Access有关的Trust Center设置。 与防病毒软件有交互作用，信任中心也将提供一些信息。 如果您未使用管理员权限运行Outlook，则将禁用该设置。 让我知道你的想法。

到目前为止，我还没有明确表示出来，但是我也想提请您注意AV。 这是它试图停止的事情之一。 也许有一个被炒鱿鱼的规则阻止了这种情况。

无论哪种方式，您都应该能够在另一个环境中进行测试，以查看它是否特别是您的系统。 我想我们都同意这不是专门的代码，因为我知道它可以在其他地方使用。

Answer 2

我可以建议您可能需要打开并运行Outlook副本。 使用CreateObject()可能不够。

若要以编程方式执行此操作，请如下修改VBA宏：

Shell "Outlook.exe" 'Opens Outlook

' Your existing code goes here

Shell "taskkill /IM Outlook.exe" 'Closes Outlook again when code is finished (optional)