For i As Integer = 1 To pop.GetMessageCount '时间升序
''MessageBox.Show(pop.GetMessageHeader(i).Subject)
Dim msg As OpenPOP.MIMEParser.Message = pop.GetMessage(i, False)
Dim str As String = msg.MessageBody(msg.MessageBody.Count - 1)
Dim bytes() As Byte
'Bytes = Encoding.Default.GetBytes(str)
Bytes = Encoding.utf8.GetBytes(str)
str = Encoding.utf8.GetString(Bytes)
Dim b() As Byte
Dim s As String
s= msg.MessageBody(msg.MessageBody.Count - 1)
b=Encoding.Default.GetBytes(s)
s=Encoding.Default.GetString(b)
Dim r As Row=Tables("表A").addnew
r("发件人")=msg.From
r("发送时间")=msg.Date
r("标题")=msg.Subject
r("收件人")=msg.To(0)
r("附件数")=msg.AttachmentCount
r("正文")=str
r("正文2")=s
r("发件人地址")=msg.FromEmail
Next
或者麻烦老师单独发个dll 我用的是你给的那个案例里的dll
[此贴子已经被作者于2016/5/18 10:31:48编辑过]