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