主题：邮件归档的问题

 哪位高手有将腾讯企业邮箱集成到FT的案例？或者其他的方法也行。

要实现发送接收 将邮件下载到本地 保存到数据库 能够检索 不用做的高大上 只要能正常显示正文收发附件就可以 将内容和附件保存到数据库这部分我基本能完成 就是收发邮件这块没思路

我的是2014版的 打不开你的案例  你发的那2个链接 我看过  乱码 也没介绍附件如何收取  另外一个用第三方的DLL 很多vb语法和现在的不一样了

老师  5楼的例子能发个2014版的吗

这例子都看不了  版本过高

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

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

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

 

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

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

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