excel - application.IsTrusted 返回 false

Question

以下代码(在 Internet 上找到)不能用作 OutApp.IsTrusted返回假。

当我尝试运行代码时，我遇到了以下行的错误 `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

结束子

如果有人可以帮助我，将不胜感激。
此致
永安

Answer 1

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

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