jj fix encoding of subject

This commit is contained in:
Jonathan Jenne
2017-08-10 12:36:33 +02:00
parent 2252e6f055
commit c56e63d0c1
7 changed files with 31 additions and 33 deletions

View File

@@ -2217,8 +2217,12 @@ Public Class frmIndex
Try
Me.grpBetreff.Dock = DockStyle.Top
Me.grpbxMailBody.Dock = DockStyle.Fill
Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
'msg_email.Encoding = Encoding.Unicode
'Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
'Dim foo As New Email.Mime.Message(CURRENT_WORKFILE)
Dim msg_email As New Msg.Message()
msg_email.Encoding = Encoding.UTF8
msg_email.Open(CURRENT_WORKFILE)
Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg_email)
If LogErrorsOnly = False Then ClassLogger.Add(" EMAIL-HEADER: " & headers, False)