主题：获取邮件出现 乱码

编码转换参考

Dim file As String = "文件.txt"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")  
Dim def As Encoding = Encoding.Default
Bytes = def.GetBytes(file)
Bytes = Encoding.Convert(def, utf, Bytes)  
file = def.GetString(Bytes)  
Output.Show(file)

----------------------

Dim file As String = "鏂囦欢.txt"
Dim bytes() As Byte
Dim utf As Encoding = Encoding.GetEncoding("utf-8")  
Dim def As Encoding = Encoding.Default
Bytes = utf.GetBytes(file)
Bytes = Encoding.Convert(utf, def, Bytes)
file = utf.GetString(Bytes)  
Output.Show(file)

比如

Dim file As String = "鏂囦欢.txt"
Dim bytes() As Byte
Bytes = Encoding.Default.GetBytes(file)
file = Encoding.utf8.GetString(Bytes)  
Output.Show(file)

转换一下，如

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)

但是，还是会有部分乱码，应噶是dll本身有问题的。

 mark 接收邮件

汗，dll源码本身有问题，但是涉及的内容过多，就不深究了。改了一下可以直接根据什么编码调用查看邮件的。

如果你自己看得懂代码，就修改那些源码改成适合自己调用的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:接收邮件示例.zip