主题：邮件归档的问题

区分不了。

做例子上来测试。

Dim pop As New OpenPOP.POP3.POPClient
pop.Disconnect()
pop.Connect("pop.exmail.qq.com", 110)
pop.Authenticate("rjh@zhufine.com", "R6562302",False)
MessageBox.show(pop.GetMessageCount)

For i As Integer = 1 To pop.GetMessageCount   '时间升序
    Dim msg As OpenPOP.MIMEParser.Message = pop.GetMessage(i, False)
   
    Dim str As String = ""
    If msg.MessageBody.Count > 0 Then
        str =  msg.MessageBody(msg.MessageBody.Count - 1)
    End If
    If str.Indexof("utf-8") >= 0 Then
        Dim bytes() As Byte
        Bytes = Encoding.Default.GetBytes(str)
        str = Encoding.utf8.GetString(Bytes)
    End If
    Dim r As Row=Tables("表A").addnew
    r("主题")=msg.Subject
    r("发件人")=msg.From
    r("发送时间")=msg.Date
    r("标题")=msg.Subject
    r("收件人")=msg.To(0)
    r("附件数")=msg.AttachmentCount
    r("正文")=str
    r("发件人地址")=msg.FromEmail
Next

测试了一下，QQ邮箱对pop协议的支持有问题，执行名stat的时候没有正确返回数值。其他邮箱测试正确。

也有可能是dll做得不完善，你用另外一个dll试试 LumiSoft.Net.Dll

乱码参考48楼

    If str.Indexof("utf-8") >= 0 Then
        Dim bytes() As Byte
        Bytes = Encoding.Default.GetBytes(str)
        str = Encoding.utf8.GetString(Bytes)
    End If

汗.....我测试了一下 LumiSoft.Net.dll，从QQ邮箱那里获取得到的邮件数量也不正确......

 这样做

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=85142