无法在 vbscript 中提取完整的 HTMLBODY

Question

我想查看 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*

Answer 1

.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 个字符）。

FileSystemObject 记录在此处：https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/createtextfile-method

无法在 vbscript 中提取完整的 HTMLBODY

Not able to extract full HTMLBODY in vbscript

vbscript

outlook

qtp