尝试操作失败错误答案

【问题标题】：Attempted Operation Failed Error尝试操作失败错误
【发布时间】：2017-01-10 08:49:35
【问题描述】：

我有这段代码可以预览 Outlook 邮件。

Dim wordDoc As Word.Document '<---
Dim objMail as Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set attach = objMail.attachments
Set wordDoc = objMail.GetInspector.WordEditor

我的问题是，这行 Set wordDoc = objMail.GetInspector.WordEditor 有时会返回错误信息：

“尝试操作失败。”

这让我一直悬而未决，我不知道如何处理它。有什么帮助吗？

【问题讨论】：

您在 Dim oOutlook As Object 中出现错误，您使用 objOutlook ，但我认为这不是问题所在。该代码每次都对我有用...
究竟是什么属性或方法调用会产生异常/错误？您是否尝试打破属性和方法调用链并在单独的代码行中声明它们？

标签： excel vba outlook

【解决方案1】：

首先，我建议打破属性和方法调用链，并在单独的代码行中声明它们。这允许找到导致问题的属性或方法。

Dim inspector as Outlook.Inspector

Set inspector = objMail.GetInspector
Set wordDoc = inspector.WordEditor

您在何时何地尝试获取 Word 编辑器？是 ItemSend 事件处理程序吗？

【讨论】：

在预览消息之前我正在使用它。

【解决方案2】：

如果 Inspector 尚不可见，WordEditor 有时会失败。为什么需要 Word 对象？

【讨论】：

我必须将一个项目从 excel 复制到 Outlook。
为什么需要 Word 对象呢？为什么不将 HTMLBody 属性设置为格式正确的 HTML？