无法在vbscript中提取完整的HTMLBODY

我想查看outlook邮件的源并将其另存为HTML文件。但是mailItem.HTMLBody没有提供完整的源代码，它在中间被截断了

Set app = CreateObject("Outlook.Application")
Set nameSpace = app.GetNamespace("MAPI")
Set MyFolders = nameSpace.GetDefaultFolder(6)
'Read unread items in Inbox
Set cols = MyFolders.Items
dim a
For each mail In cols
If mail.unread Then
a = mail.HTMLbody
msgbox a
End If
Next
'MSgbox a doesn't show full html source*

---

.HTMLbody

属性已完成。截断字符串的是

MsgBox（）

将其保存到文件中，就像您最初打算的那样

Set FSO = CreateObject("Scripting.FileSystemObject")

' ...

For Each mail In cols
  If mail.unread Then
    With FSO.CreateTextFile("C:\Temp\messagebody.html", True, True)
      .Write mail.HTMLbody
      .Close
    End With
  End If
Next

如果计划使用消息主题作为文件名，请确保替换文件名中所有无效的字符，并检查总路径长度限制（~255个字符）

文件系统对象记录在以下位置：