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