Set msg =Mailer.Messages.item(j)
'正文
Body=msg.body
‘附件
Set Attachments = msg.Attachments
if Attachments.Count>0 then separator = ", "
set FileObject = nothing
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile "C:\"&at.name
Next