尝试操作失败错误

Question

我有这个预览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返回错误说：

  

＆＃34;尝试操作失败。＆＃34;

这让我感到困惑，我不知道如何处理它。有什么帮助吗？

Answer 1

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

Dim inspector as Outlook.Inspector

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

您何时何地尝试使用Word编辑器？它是ItemSend事件处理程序吗？

Answer 2

如果Inspector尚未显示，WordEditor有时会失败。 为什么需要Word对象？