主题：邮件归档的问题

转了还是乱码 这个dll我已经用你的替换掉了

 转了可能部分乱码，这个没办法处理的。

这个为什么会出现乱码呢  用第三方收件软件或者web收都是正常的  不应该到了ft这里就乱码了吧

另外我想请教下老师  这个DLL的方法有没有一个完整的说明啊

Dim msg As OpenPOP.MIMEParser.Message = pop.GetMessage(7, False) 这个7表示什么意思？第7封邮件 为什么我改成其他数字有时候就报错？

 

说dll有问题啊，你换个dll啊。

 

如果你的数字大于邮件的总数，肯定报错啊。

dll我已经用了你发的那个了啊 我邮箱有200多封邮件  但是我改成9就开始报错了另外我参照http://www.sufeinet.com/thread-9222-1-1.html 这个朋友给的建议 改了下代码 发现用你那个乱码的 这个显示就正常 你那个显示正常的  用这个就乱码

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

不同的邮件有可能是不同的编码啊，有可能是ut8转unicode，有可能一些不需要转的啊。