使用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）。