主题：邮件归档的问题

这例子都看不了  版本过高

 那你就不要看例子，看前面的代码。

我是想看下你动态选择编码那部分 林老师这个dll貌似确实有问题

 动态选择编码和这个的效果一样

 

Dim str As String = msg.MessageBody(msg.MessageBody.Count - 1)
Dim bytes() As Byte
Bytes = Encoding.Default.GetBytes(str)
str = Encoding.utf8.GetString(Bytes)

output.show(str)

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
引发类型为“OpenPOP.POP3.InvalidPasswordException”的异常。

这事什么原因

请用这个例子下的dll

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=26946&replyID=168981&skin=1

 

我用的就是这个例子  但是出现了15楼的错误 

 

原本的用户名、密码已经无效了，你改成你自己的邮箱。或者用这个

 

Dim pop As New OpenPOP.POP3.POPClient
pop.Disconnect()
pop.Connect("pop.163.com", 110)
pop.Authenticate("13827126079", "6849338.")
MessageBox.Show(pop.GetMessageCount())

红袍老师 按照你的提示  现在可以获取到邮件数和邮件主题  但是获取正文的时候还是出现乱码 红色部分在获取某些邮件的时候显示正常 如果按住你的代码进行转换反而会有乱码

 

Dim pop As New OpenPOP.POP3.POPClient
pop.Disconnect()
pop.Connect("pop.163.com", 110)
pop.Authenticate("13827126079", "6849338.")

Dim msg As OpenPOP.MIMEParser.Message = pop.GetMessage(7, False)
Dim str As String = msg.MessageBody(msg.MessageBody.Count - 1)

Dim bytes() As Byte
Bytes = Encoding.Default.GetBytes(str)
str = Encoding.utf8.GetString(Bytes)

 

 

 

Dim info As String = ""
info &= "主题:" & msg.Subject & vbCrLf
info &= "发送者:" & msg.From & vbCrLf
info &= "发送者email:" & msg.FromEmail & vbCrLf
info &= "日期:" & msg.Date & vbCrLf
info &= "接收者:" & msg.To(0) & vbCrLf
info &= "附件数目:" & msg.AttachmentCount & vbCrLf & vbCrLf
''info &= msg.MessageBody(msg.MessageBody.Count - 1)
info &= str

e.Form.Controls("TextBox1").Text = ""
e.Form.Controls("TextBox1").Text = info & msg.MessageBody(msg.MessageBody.Count - 1)
e.Form.Controls("WebBrowser1").basecontrol.DocumentText= info

乱码就转一下

 

Dim str As String = msg.MessageBody(msg.MessageBody.Count - 1)
Dim bytes() As Byte
Bytes = Encoding.Default.GetBytes(str)
str = Encoding.utf8.GetString(Bytes)

output.show(str)