Messageオブジェクトの Header.Allプロパティを 参照すると日本語が正しく表示されません。
対象製品
iNetMail 1.0J
詳細
Header.Allプロパティはエンコードされたデータを
そのまま返します。
ヘッダを1行ごとに取得するとデコードした状態の
ヘッダを取得することができます。
If msg.To.Count Then Debug.Print "To: " & msg.To.All
If msg.Cc.Count Then Debug.Print "Cc: " & msg.Cc.All
If msg.Bcc.Count Then Debug.Print "Bcc: " & msg.Bcc.All
Dim i As Long
For i = 1 To msg.Header.Count
Debug.Print msg.Header.Item(i)
Next
そのまま返します。
ヘッダを1行ごとに取得するとデコードした状態の
ヘッダを取得することができます。
If msg.To.Count Then Debug.Print "To: " & msg.To.All
If msg.Cc.Count Then Debug.Print "Cc: " & msg.Cc.All
If msg.Bcc.Count Then Debug.Print "Bcc: " & msg.Bcc.All
Dim i As Long
For i = 1 To msg.Header.Count
Debug.Print msg.Header.Item(i)
Next
キーワード
HowTo 問題