vbscriptを使ってoutlook msgをhtmlに変換する

Question

私はVBScriptには新しく、msgファイルをhtmlに変換する単純なスクリプトを書いています。これまでのところ、私は持っています：

Dim objshell,BaseName,outlookapp,emailPath 
Set objshell= CreateObject("scripting.filesystemobject") 
Set outlookapp = CreateObject("Outlook.Application") 
Set email = outlookapp.CreateItemFromTemplate(emailPath) 

BaseName = objshell.GetBaseName(emailPath) 
emailPath = "C:\Users\makkerman\Desktop\email folder\test.msg" 

email.saveas objshell.GetParentFolderName(emailPath) & BaseName & ".html", olFormatHTML 

outlookapp.Quit 

しかし、私は出力（とエラーはありません）。誰かが私を啓発することはできますか？前もって感謝します。

サイドノート：現在のようにスクリプトを実行すると、現在のOutlookのインスタンスが閉じないようにするにはどうすればよいでしょうか？

Answer 1

OlBodyFormat.olFormatHTML（2）を使用していますが、OlSaveAsType.olHTML（5）が必要です。