convert outlook msg to html using vbscript

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).