VBを使用してOutlook 2013 HTMLメッセージを作成する

Question

HTMLファイルを使用してOutlook 2013で新しい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 Tools> Referencesでスクリプトリファレンスを有効にします。その後、これは動作しますが、Outlookは引き続きメディアクエリを取り除き、CSS（EMからPXへ）を変更します。