将msg文件转换为HTML

Question

我试图在没有第三方程序的情况下将msg文件转换为HTML文件。到目前为止，我在本网站的另一个问题中找到了一个VBscript。

Dim objshell, BaseName, outlookapp, emailPath
Set objshell = CreateObject("Scripting.FileSystemObject") 
Set outlookapp = CreateObject("Outlook.Application")
emailPath = "C:\Path\test.msg"
Set email = outlookapp.CreateItemFromTemplate(emailPath)

BaseName = objshell.GetBaseName(emailPath)
email.SaveAs objshell.GetParentFolderName(emailPath) & "\" & BaseName & ".html", 5

然而，运行这个我得到错误

  

取消行动

任何人都能告诉我出了什么问题？ 在任何地方，我看起来似乎这个脚本应该有用。