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