尝试操作失败错误

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

“尝试操作失败”

这让我挂，我不知道如何处理它。 任何帮助？

Answer 1

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

 Dim inspector as Outlook.Inspector Set inspector = objMail.GetInspector Set wordDoc = inspector.WordEditor 

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

Answer 2

如果检查器不可见，WordEditor有时可能会失败。 为什么你需要Word对象？