If m_smtp_UseCDO Then 'CDO.Message
      Dim o_Mess As New Object
      Try
        o_Mess = CreateObject("CDO.Message")
        Dim v_Conf As String = "http://schemas.microsoft.com/cdo/configuration/"
        With o_Mess
          '===(В-1)код необходим для добавления utf-8 в Subject(если .AddAttachment стоит до .TextBodyPart.Charset)===
          If m_msg_UseUTF8 Then .BodyPart.Charset = "utf-8"
          '===(В-1)код необходим для добавления utf-8 в Subject(если .AddAttachment стоит до .TextBodyPart.Charset)===
          If (Strings.Len(m_msg_FromAddress) > 0) AndAlso (Strings.Len(m_msg_FromDisplayName) > 0) Then
            .From = m_msg_FromDisplayName & "<" & m_msg_FromAddress & ">"
          ElseIf Strings.Len(m_msg_FromAddress) > 0 Then
            .From = m_msg_FromAddress
          End If
          If Strings.Len(m_msg_To) > 0 Then .To = m_msg_To
          If Strings.Len(m_msg_Cc) > 0 Then .CC = m_msg_Cc
          If Strings.Len(m_msg_Bcc) > 0 Then .BCC = m_msg_Bcc
          If Strings.Len(m_msg_Subject) > 0 Then .Subject = m_msg_Subject
          .TextBody = m_msg_TextBody
          If m_msg_UseUTF8 Then
            .TextBodyPart.Charset = "utf-8"
           End If
          If Strings.Len(m_msg_Attachments) > 0 Then
            For i As Integer = 0 To ChNum(m_msg_Attachments, ";")
              Dim attach As String = Split(m_msg_Attachments, ";")(i)
              .AddAttachment(attach)
            Next
          End If
          With .Configuration.Fields
            .item(v_Conf & "sendusing") = 2
...