Vba 使用VB创建Outlook 2013 HTML消息

我正在尝试让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

---

在Visual Basic工具>引用中启用脚本引用。这样就可以了，但是Outlook仍然会删除媒体查询并更改CSS（例如，EMs到PXs）。

您是否尝试将HTML读入变量并在调试器中查看它以确保读取正确的数据？错误是使用了On error Resume Next。编辑无法告诉您错误消息，反过来，您也无法告诉我们。