convertir outlook msg en html en utilisant vbscript

Question

Je suis assez nouveau à vbscript et je suis en train d'écrire un script simple qui convertit un fichier msg en HTML. Jusqu'à présent j'ai:

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 

Cependant, je n'obtiens aucune sortie (et aucune erreur). Quelqu'un peut-il m'éclairer? Merci d'avance. Note latérale: comment est-ce que j'écrirais ceci pour que mon instance actuelle d'Outlook ne se ferme pas quand je cours le manuscrit comme il le fait actuellement?

Answer 1

Vous utilisez OlBodyFormat.olFormatHTML (2), mais vous avez besoin de OlSaveAsType.olHTML (5).