将 msg 文件另存为 htm

Question

我正在尝试将 msg 格式的电子邮件列表保存为 htm 格式，以便 Xceptor 工具可以将电子邮件读取为 pdf。 （没有vba，目前我在Outlook中手动打开邮件并一一保存为htm。）

我在下面找到了脚本，但我得到了

“运行时错误 287：应用程序定义的或对象定义的错误”。

Sub SaveMSG_as_HTML()

    Dim olMsg As MailItem
    Dim strPath As String
    Dim strMsg As String
    Dim strHTML As String
        
    strPath = "\\Hbap.adroot.hsbc\hk\Finance\224017\AMH_A2R_2\WRK\AAC\PL\To GFC\Movement Table\MvtXceptor\Configuration\Table18.1\"
    strMsg = "RE  CRR Inquiry as atJan-00-00 - --.msg"
    strHTML = Left(strMsg, InStrRev(strMsg, Chr(46))) & "html"
    Set olMsg = Session.OpenSharedItem(strPath & strMsg)
    olMsg.SaveAs Path:=strPath & strHTML, Type:=olHTML
    olMsg.Close olDiscard
lbl_Exit:
    Set olMsg = Nothing
    Exit Sub

End Sub

Answer 1

如果没有vba，我需要在outlook中打开邮件并一一保存为htm。

没有 VBA？所以我猜你想使用VBScript？比如说，通过单击.vbs 文件直接从桌面运行它？如果是，那么您需要先声明并创建/获取 Outlook 对象，然后才能使用它。否则你的代码怎么知道Session是什么？ olHTML 和 olDiscard 也是 Outlook 常量。 VbScript 不会知道它们是什么。

这是你正在尝试的吗？将此粘贴到记事本中并保存为Sample.Vbs

Private Const olHTML = 5
Private Const olDiscard = 1

Dim OutApp
Dim olMsg
Dim nsOutlook

Dim strPath
Dim strMsg
Dim strHTML
  
'~~> I used these values for testing. Change as applicable
strPath = "C:\Temp\"
strMsg = "test.msg"
strHTML = "test.html"

Set OutApp = CreateObject("Outlook.Application")
Set nsOutlook = OutApp.GetNamespace("MAPI")
Set olMsg = nsOutlook.OpenSharedItem(strPath & strMsg)

olMsg.SaveAs strPath & strHTML, olHTML
olMsg.Close olDiscard

Set olMsg = Nothing
Set nsOutlook = Nothing
Set OutApp = Nothing