Public Sub SendMapiEmailHtml(ByVal m_EmailAddr As String, ByVal m_CustomerName As String, _
   ByVal m_Subject As String, ByVal m_HTMLBody As String, Optional ByVal m_Show As Boolean = False)
    Dim o_MAPISession As New MSMAPI.MAPISession
    With o_MAPISession
      .DownLoadMail = False
      .LogonUI = True
      .NewSession = False
      .SignOn()
    End With

    Dim o_MAPIMessages As New MSMAPI.MAPIMessages
    o_MAPIMessages.SessionID = o_MAPISession.SessionID
    With o_MAPIMessages
      .Compose()
      .RecipIndex = 0
      .RecipAddress = m_EmailAddr
      .RecipDisplayName = m_CustomerName
      .RecipType = MSMAPI.RecipTypeConstants.mapToList
      .MsgSubject = m_Subject
      .AttachmentPathName = m_HTMLBody
      .Send(m_Show)
    End With
    o_MAPISession.SignOff()
  End Sub

    With o_MAPIMessages
      .FetchSorted = True
      .Fetch()
      If .MsgCount > 0 Then
        For i As Integer = .MsgCount - 1 To 0 Step -1
          .MsgIndex = i
           Dim the_str As String = Replace(.MsgNoteText, vbLf, vbCrLf)
           str_Subject = Trim(.MsgSubject)
           str_Body = the_str
        Next
      End If
    End With

  Private Sub ButtonReply_Click(sender As Object, e As EventArgs) Handles ButtonReply.Click
    Dim v_Conf As String = "http://schemas.microsoft.com/cdo/configuration/"
    Dim o_Mess As CDO.Message = LoadMessageFromFile("test_orig.eml") ' As Object
    With o_Mess.Configuration.Fields
      .Item(v_Conf & "usemessageresponsetext").Value = True
      .Item(v_Conf & "languagecode").Value = "en-us" 'Original Message/From/To и т.п. на английском при цитировании
      .Update()
    End With

    ' Assume we want to reply to all recipients.
    Dim o_Mess2 As New CDO.Message
    o_Mess2 = o_Mess.Reply '.ReplyAll
    o_Mess2.BodyPart.Charset = "utf-8"
    o_Mess2.TextBodyPart.Charset = "utf-8"

    If o_Mess2.HTMLBody <> "" Then
      o_Mess2.HTMLBodyPart.Charset = "utf-8"
      ' сохранить страницу как html
      o_Mess2.HTMLBodyPart.GetDecodedContentStream.SaveToFile("reply.htm", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
    Else ' сохранить страницу как txt
      o_Mess2.TextBodyPart.GetDecodedContentStream.SaveToFile("reply.txt", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
    End If

    'save "Reply" to .eml
    Dim oDsrc As CDO.IDataSource
    oDsrc = o_Mess2

    Dim Stm As New ADODB.Stream
    Stm.Type = o_Mess2.GetStream().Type
    Stm.Charset = o_Mess2.GetStream().Charset
    Stm.Open()
    oDsrc.SaveToObject(Stm, "_Stream")
    Stm.SaveToFile("test_res.eml", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
    'o_Mess.Send()
  End Sub

  Private Function LoadMessageFromFile(ByVal Path As String) As CDO.Message 'As Object
    Dim Stm As New ADODB.Stream '= CreateObject("ADODB.Stream")
    Stm.Open()
    Stm.Type = ADODB.StreamTypeEnum.adTypeBinary
    'Stm.Charset = "utf-8"
    Stm.LoadFromFile(Path)
    Dim iMsg As New CDO.Message '= CreateObject("CDO.Message")
    'Dim iDsrc As Object = iMsg.DataSource ' get IDataSource interface
    Dim iDsrc As CDO.IDataSource = iMsg.DataSource ' get IDataSource interface
    iDsrc.OpenObject(Stm, "_Stream")
    LoadMessageFromFile = iMsg
  End Function