Konvertieren von Outlook-Nachrichten in HTML mit VBScript

Question

Ich bin ziemlich neu in VBScript und ich schreibe nur ein einfaches Skript, das eine msg-Datei in HTML konvertiert. Bisher habe ich:

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 

Allerdings bekomme ich keine Ausgabe (und keine Fehler). Kann mich jemand aufklären? Danke im Voraus.

Seitennotiz: Wie würde ich dies schreiben, so dass meine aktuelle Instanz von Outlook nicht geschlossen wird, wenn ich das Skript wie es derzeit ausführt?

Answer 1

Sie verwenden OlBodyFormat.olFormatHTML (2), aber Sie benötigen OlSaveAsType.olHTML (5).