vba+jmail保存已发送邮件为eml却无内容

Question

 用Jmail+ADODB.Stream来保存已经发送的邮件，发现，可以保存成eml文件，并且可以看到 发件人、收件人、发送日期、主题等信息，就是看不到正文（收件人可以看到完整的正文）用notepad打开看，是有完整的邮件原始信息的。请问是什么问题呢？            Set objStream = CreateObject("ADODB.Stream")
                With objStream
                      .Type = 1
                      .Open
                       Jmail.Message.SaveToStream objStream
                      .SaveToFile"d:\test.eml"), 2
                      .Close
                End With
            Set objStream = Nothing
          

Answer 1

Set pop3 = Server.CreateObject("JMail.POP3")
Set objStream = CreateObject("ADODB.Stream")
Set msg = pop3.Messages.item(j)
for j=1 to pop3.count
With objStream
.Type = 1
.Open
.Position = 0
msg.SaveToStream objStream
.SaveToFile FilePath, 2
.Close
End With
next

Answer 2

Set pop3 = Server.CreateObject("JMail.POP3")
 Set objStream = CreateObject("ADODB.Stream")
.................... for j=1 to pop3.count
    Set msg = pop3.Messages.item(j)
    With objStream
     .Type = 1
     .Open
     .Position = 0
      msg.SaveToStream objStream
     .SaveToFile FilePath, 2
     .Close
    End With
    set msg=nothing
 next