Option Explicit

Private Sub Command1_Click()
  SendTestMailCDO
End Sub

Private Sub SendTestMailCDO()
  Const email_To As String = "recipient@gmail.com"
  Const email_From As String = "myname@myserver.com"
  Const smtp_Server As String = "myserver.com"
  Const smtp_Username As String = "myname+myserver.com"
  Const smtp_Password As String = "password"

  Dim o_Mess As CDO.Message 'As Object
  Dim v_Conf As String
  
  '-------------------------------
  'composing message with CDO
  On Error GoTo ErrOfSend
  Set o_Mess = CreateObject("CDO.Message")
  v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
  With o_Mess
    .To = email_To
    .From = email_From
    .Subject = "Тема письма на Русском!!!"
    .TextBody = "Текст письма на Русском! Привет!"
    '.AddAttachment Trim(TextAttach.Text)
    With .Configuration.Fields
      .Item(v_Conf & "sendusing") = 2
      .Item(v_Conf & "smtpserver") = smtp_Server
      .Item(v_Conf & "smtpauthenticate") = 1 '1-использовать
      '.Item(v_Conf & "smtpauthenticate") = 0 '0-без
      .Item(v_Conf & "sendusername") = smtp_Username
      .Item(v_Conf & "sendpassword") = smtp_Password
      .Item(v_Conf & "smtpserverport") = "25"
      '.Item(v_Conf & "smtpusessl") = True 'использовать SSL
      .Item(v_Conf & "smtpusessl") = False
      .Item(v_Conf & "smtpconnectiontimeout") = 60 'пока считаем что 60, потом м.б. добавим параметр
      .Update
    End With
    .Send
  End With
  MsgBox "Пробное сообщение на адрес " & o_Mess.To & " было успешно отправлено!", vbInformation + vbOKOnly, "Email отправлен"
  Exit Sub
ErrOfSend:
  MsgBox "Отправка письма завершилась неудачей." & vbCrLf & "Код ошибки: " & Err.Number & vbCrLf & Err.Description, _
   vbCritical + vbOKOnly, "Отправка email не удалась."
End Sub

    'либо
    o_Mess.TextBodyPart.Charset = "windows-1251"
    'либо
    o_Mess.TextBodyPart.Charset = "koi8-r"
    'либо
    o_Mess.TextBodyPart.Charset = "utf-8"

    o_Mess.TextBodyPart.Charset = "utf-8"

  Set o_Mess = CreateObject("CDO.Message")
  v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
  With o_Mess
    .To = email_To
    .From = email_From
    .Subject = "Тема письма на Русском!!!"
    .TextBody = "Текст письма на Русском! Привет!"
    If Len(Trim(TextAttach.Text)) > 0 Then _
    .AddAttachment Trim(TextAttach.Text)
    .TextBodyPart.Charset = "utf-8"
    With .Configuration.Fields
...

  With o_Mess
    '===(В-1)код необходим для добавления utf-8 в Subject(если .AddAttachment стоит до .TextBodyPart.Charset)===
    Dim o_BodyPart As Object 'CDO.IBodyPart
    Set o_BodyPart = .BodyPart
    o_BodyPart.Charset = "utf-8"
    '===(В-1)код необходим для добавления utf-8 в Subject(если .AddAttachment стоит до .TextBodyPart.Charset)===

    .To = email_To

    .Subject = "Тема письма на Русском!!!"
    .TextBody = "Текст письма на Русском! Привет!"
    '===(В-2)для добавления utf-8 в Subject эта строчка должна стоять до .AddAttachment===
    .TextBodyPart.Charset = "utf-8"
    '===(В-2)для добавления utf-8 в Subject эта строчка должна стоять до .AddAttachment===
    If Len(Trim(TextAttach.Text)) > 0 Then _
     .AddAttachment Trim(TextAttach.Text)

  'composing message with CDO
  On Error GoTo ErrOfSend
  Set o_Mess = CreateObject("CDO.Message")
  v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
  With o_Mess
    '===(В-1)код необходим для добавления utf-8 в Subject(если .AddAttachment стоит до .TextBodyPart.Charset)===
    Dim o_BodyPart As Object 'CDO.IBodyPart
    Set o_BodyPart = .BodyPart
    o_BodyPart.Charset = "utf-8"
    '===(В-1)код необходим для добавления utf-8 в Subject(если .AddAttachment стоит до .TextBodyPart.Charset)===

    .To = email_To
    .From = email_From
    .Subject = "Тема письма на Русском!!!"
    .TextBody = "Текст письма на Русском! Привет!"
    '===(В-2)для добавления utf-8 в Subject эта строчка должна стоять до .AddAttachment===
    .TextBodyPart.Charset = "utf-8"
    '===(В-2)для добавления utf-8 в Subject эта строчка должна стоять до .AddAttachment===
     If Len(Trim(TextAttach.Text)) > 0 Then _
     .AddAttachment Trim(TextAttach.Text)
    With .Configuration.Fields
...