尝试操作失败的GetInspector.WordEditor错误
尝试操作失败的GetInspector.WordEditor错误
提问于 2016-09-02 09:27:40
此代码预览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返回：
“企图操作失败”
这让我绞尽脑汁，我不知道该如何处理。
回答 3
Stack Overflow用户
发布于 2016-09-02 14:42:50
首先，我建议打破属性和方法调用的链，并在单独的代码行上声明它们。它允许查找导致问题的属性或方法。
Dim inspector as Outlook.Inspector
Set inspector = objMail.GetInspector
Set wordDoc = inspector.WordEditor你在哪里和什么时候试着得到单词编辑器？是ItemSend事件处理程序吗？
Stack Overflow用户
发布于 2016-09-02 19:49:22
如果检查器尚未可见，WordEditor有时可能会失败。你为什么要用对象这个词？
Stack Overflow用户
发布于 2022-08-25 16:25:23
检查Outlook应用程序是否已打开。在我的示例中，WordEditor无法实例化，因为它已经关闭。
Sub CreateEmail()
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim OutMail As Object
Set OutMail = OutApp.CreateItem(0)
Dim vInspector As Object
Set vInspector = OutMail.GetInspector
Dim wEditor As Object
' THIS WILL FAIL IF OUTLOOK IS NOT OPEN
Set wEditor = vInspector.WordEditor
' More VBA...
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/39288974
复制相关文章
相似问题
腾讯云开发者
