Question

以下代码（在Internet上找到）无效，因为OutApp.IsTrusted返回false。

当我尝试运行代码时，我在以下一行有一个错误：“设置编辑器= .GetInspector.WordEditor”->应用程序定义或对象定义的错误

我使用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

结束子

如果有人可以帮助我，将不胜感激。最好的祝福 Yoan

Answer 1

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

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

application.IsTrusted返回false

1 个答案: