国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

本人使用的版本：JMail44_pro

使用Msg.Headers.GetHeader("Subject")得到的內(nèi)容是：
=?utf-8?B?5L2g5Lus5aW95ZWK77yM6IO95pi+56S65ZCX77yf?=
一共有4個(gè)“?”號(hào)，作為分隔符
第一段：utf-8
第二段：B
第三段：5L2g5Lus5aW95ZWK77yM6IO95pi+56S65ZCX77yf
第四段：=
其中第三段就是標(biāo)題的內(nèi)容，但是經(jīng)過Base64編碼了
第一段就是標(biāo)題內(nèi)容原來的編碼
所以，要進(jìn)行兩步反編碼

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
'存在的話，進(jìn)行字符串分割
sArr = str.Split("?")
Exit For
End If
Next

If sArr IsNot Nothing Then
'sArr(3)就是經(jīng)過Base64編碼的原Subject內(nèi)容
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
調(diào)用方法：DecodeStr(Msg.Headers.GetHeader("Subject"))