[.NET]解决使用JMail接收邮件时的标题乱码

原创声明：

    本文章为原创，欢迎转载，但请给出本文链接，多谢合作。

    本文链接：http://blog.csdn.net/epinszteinic/archive/2008/02/20/2108637.aspx

本人使用的版本：JMail44_pro

使用Msg.Headers.GetHeader("Subject")得到的内容是：

=?utf-8?B?5L2g5Lus5aW95ZWK77yM6IO95pi+56S65ZCX77yf?=

一共有4个“?”号，作为分隔符

    第一段：utf-8

    第二段：B

    第三段：5L2g5Lus5aW95ZWK77yM6IO95pi+56S65ZCX77yf

    第四段：=

其中第三段就是标题的内容，但是经过Base64编码了

第一段就是标题内容原来的编码

所以，要进行两步反编码：

Private Function DecodeStr()Function DecodeStr(ByVal str As String) As String
'可以往这里添加更多的编码，比如GB2312等等
Dim encodingList As New ArrayList
encodingList.Add("ISO-2022-JP")
encodingList.Add("UTF-8")
Dim encodingStr As String = ""
Dim sArr() As String = Nothing
Dim result As String = ""
If str IsNot Nothing Then
For i As Integer = 0 To encodingList.Count - 1
encodingStr = encodingList(i).ToString()
'判断传入的Subject原文有没有包含前面添加的编码字符串
If str.ToUpper.Contains(encodingStr) Then
'存在的话，进行字符串分割
sArr = str.Split("?")
Exit For
End If
Next
If sArr IsNot Nothing Then
'sArr(3)就是经过Base64编码的原Subject内容
Dim b As Byte() = Convert.FromBase64CharArray(sArr(3).ToCharArray(), 0, sArr(3).ToCharArray().Length)
Dim en As Encoding = Encoding.GetEncoding(encodingStr)
result = en.GetString(b)
Else
result = str
End If
End If
Return result
End Function

调用方法：DecodeStr(Msg.Headers.GetHeader("Subject"))