Использование VB для создания Outlook 2013 HTML-сообщения

Question

Я пытаюсь заставить Outlook 2013 создать новое HTML-сообщение, используя мой HTML-файл. Приведенный ниже код создает новое сообщение электронной почты, но оно не включает мой HTML-файл. Кто-нибудь знает, что я здесь делаю не так?

Public Function CreateHTMLMsg(fileHTML As String) _
  As Outlook.mailItem
    On Error Resume Next
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(fileHTML) Then
        Set objOL = Application
        Set objMsg = objOL.CreateItem(olMailItem)
        Set objStream = objFSO.OpenTextFile(fileHTML, _
                                        ForReading)
        objMsg.HTMLBody = objStream.ReadAll
    End If
    Set CreateHTMLMsg = objMsg
    Set objOL = Nothing
    Set objMsg = Nothing
    Set objFSO = Nothing
    Set objStream = Nothing
End Function

Sub sdnewsletter()
    Set objMsg = CreateHTMLMsg("C:\Users\...\index2-inline.html")
    objMsg.Display
End Sub

Answer 1

Включите ссылку на сценарии в Инструменты Visual Basic> Ссылки. Тогда это работает, но Outlook по-прежнему будет обрезать медиа-запросы и менять CSS (например, EM на PX).