ailInfo = "from:to:X-to:Cc:X-Cc:Bcc:subject:Date:MIME-Version: " & "Content-Type:X-Priority:X-MSMail-Priority:X-Mailer:X-MimeOLE:"
arrFile = basptest.RcvMail("192.168.1.19", tesadd, password, "SAVEALLD", thePath)
If IsArray(arrFile) = False Then
Exit Sub
End If
For Each eachF In arrFile
strLast = basptest.ReadMail(eachF, strMailInfo, thePath)
For Each mes In strLast
message = message & mes & vbCrLf
Next mes
Next eachF
basptest.SendMail("192.页码：[1] [2] [3] [4] [5] 第3页、共5页 |
