使用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工具＆gt;参考中启用脚本参考。然后这可行，但Outlook仍将剥离媒体查询并更改CSS（例如，EMs到PX）。