狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

本人使用的版本：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"))