时间戳

首页 > 解决方案 > application.IsTrusted 返回 false

excel - application.IsTrusted 返回 false

问题描述

以下代码（在 Internet 上找到）不起作用，因为OutApp.IsTrusted返回 false。

当我尝试运行代码时，我遇到了以下行的错误 `Set editor = .GetInspector.WordEditor" --> Application-defined or object-defined error

我在 excel vba 中使用代码，因为 Outlook 中没有可用的 vba 宏。我的outlook版本是2013。

Sub emailFromDoc()
Dim wd As Object, editor As Object
Dim doc As Object
Dim oMail As MailItem
Dim OutApp As Object

Set wd = GetObject(, "Word.Application")
Set doc = wd.Documents.Open("\\Chdcvnas0351.ch.hibm.hsbc\user.hbeu$\43987788\Documents\Market Update.docx")
doc.content.Copy
doc.Close

Set wd = Nothing
Set OutApp = GetObject(, "Outlook.Application")
Set oMail = OutApp.CreateItem(olMailItem)

With oMail
    .BodyFormat = olFormatRichText
    Set editor = .GetInspector.WordEditor
    editor.content.Paste
    .Display
End With

结束子

如果有人可以帮助我，将不胜感激。最好的问候杨

标签： excelvbaoutlookms-word

解决方案

当然 - 您正在Outlook.Application从 Outlook.exe 地址空间之外访问对象，因此您的Outlook.Application对象实例不受信任，并且在您访问敏感信息时会引发安全提示。只有 COM 插件和 Outlook VBA 才能获得该对象的受信任版本。

至于GetInspector.WordEditor错误，请在调用后尝试访问该对象Display。

推荐阅读