application.IsTrusted возвращает false - PullRequest
Новая
       5

application.IsTrusted возвращает false

0 голосов
/ 14 ноября 2018

Следующий код (найден в интернете) не работает, так как OutApp.IsTrusted возвращает false.

Когда я пытаюсь запустить код, у меня появляется ошибка со следующей строкой `Set editor = .GetInspector.WordEditor" -> Ошибка приложения или объекта

Я используюкод в Excel vba, так как у меня нет макроса vba, доступного в Outlook. Моя версия 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

End Sub

Если кто-то может мне помочь, будет очень признателенС наилучшими пожеланиями Йоан

1 Ответ

0 голосов
/ 14 ноября 2018

Конечно, вы обращаетесь к объекту Outlook.Application из-за пределов адресного пространства outlook.exe, следовательно, ваш экземпляр объекта Outlook.Application не является доверенным и вызовет запросы безопасности при доступе к конфиденциальной информации. Только надстройки COM и Outlook VBA получают доверенную версию этого объекта.

Что касается ошибки GetInspector.WordEditor, попробуйте получить доступ к этому объекту после вызова Display.

...