Некорректное отображение сообщения, отправленного на e-mail

Imports System.Net.Mail
Imports System.Net
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim soobw As Object, nasroyka As String
        soobw = CreateObject("CDO.Message")
        nasroyka = "http://schemas.microsoft.com/cdo/configuration/"
        On Error Resume Next
        With soobw
            .To = TextBox1.Text
            .From = TextBox2.Text
            .Subject = TextBox3.Text
            .TextBody = TextBox4.Text
            With .Configuration.Fields
                .Item(nasroyka & "sendusing") = 2
                .Item(nasroyka & "smtpserver") = "smtp.yandex.ru"
                .Item(nasroyka & "smtpauthenticate") = 1
                .Item(nasroyka & "sendusername") = "***@yandex.ru"
                .Item(nasroyka & "sendpassword") = "***"
                .Item(nasroyka & "smtpserverport") = 25
                .Item(nasroyka & "smtpusessl") = False
                .Item(nasroyka & "smtpconnectiontimeout") = 1
                .Update()
            End With
            .send()
        End With
    End Sub
End Class

Imports System.Net.Mail
Imports System.Net
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim soobw As Object, nasroyka As String
        soobw = CreateObject("CDO.Message")
        nasroyka = "http://schemas.microsoft.com/cdo/configuration/"
        soobw.BodyPart.CharSet = "Windows-1251"
        On Error Resume Next
        With soobw
            .To = TextBox1.Text
            .From = TextBox2.Text
            .Subject = TextBox3.Text
            .TextBody = TextBox4.Text
            With .Configuration.Fields
                .Item(nasroyka & "sendusing") = 2
                .Item(nasroyka & "smtpserver") = "smtp.yandex.ru"
                .Item(nasroyka & "smtpauthenticate") = 1
                .Item(nasroyka & "sendusername") = "*******@igsha.ru"
                .Item(nasroyka & "sendpassword") = "***********"
                .Item(nasroyka & "smtpserverport") = 25
                .Item(nasroyka & "smtpusessl") = False
                .Item(nasroyka & "smtpconnectiontimeout") = 1
                .Update()
            End With
            .send()
        End With
    End Sub
End Class