使用vbscript将outlook msg转换为html
问题描述:
我对vbscript很新颖,我只是写了一个将msg文件转换为html的简单脚本。到目前为止,我有:使用vbscript将outlook 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实例不会关闭?
答
您正在使用OlBodyFormat.olFormatHTML(2),但您需要OlSaveAsType.olHTML(5)。
谢谢德米特里。我试过了,但后来我收到一个错误,说:“Object required:'OlSaveAsType'”。我以为电子邮件变量已经是一个对象了? – Matt
指定olHTML。或5. –
对不起,仍然没有输出,但更改5摆脱了错误至少:)。我会继续研究。 Thx – Matt