Отправка письма

Imports System.Net.Mail
Imports System.Text
Imports System.Net
 
Public Class Form1
    Dim Mess As Object, conf As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '----------------------------------------------------
        conf = "http://scheams.microsoft.com/cdo/configuration/"
        Mess = CreateObject("CDO.Message")
        With Mess
            .To = "Почта получателя"
            .From = "Почта отправителя"
            .Subject = "Почта получателя"
            .TextBody = TextBox1.Text
            With .Configuration.Fields
                .Item(conf & "sendusing") = 2
                .Item(conf & "smtpserver") = "smtp.google.com"
                .Item(conf & "smtpauthenticate") = 1
                .Item(conf & "sendusername") = "Почта отправителя"
                .Item(conf & "sendpassword") = "Пароль почты отправителя"
                .Item(conf & "smtpserverport") = 465
                .Item(conf & "smtpusessl") = True
                .Item(conf & "smtpconnectiontimeout") = 60
                .Update()
            End With
            .Send()
        End With
        Mess = Nothing
        '-------------------------------------------------
        Dim EMail As New MailMessage
        Dim Smtp As SmtpClient
        Smtp = New SmtpClient("smtp.google.com")
        Smtp.Port = 465
        Smtp.Credentials = New Net.NetworkCredential("Почта отправителя", "Пароль почты отправителя")
        EMail.From = New MailAddress("Почта отправителя")
        EMail.To.Add(New MailAddress("Почта получателя"))
        EMail.Body = TextBox1.Text
        EMail.Subject = TextBox1.Text
        Try
            Smtp.Send(EMail)
            MsgBox("Ваше сообщение отправлено. Спасибо!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Ваше сообщение не было отправлено. Пожалуйста, повторите попытку", MsgBoxStyle.Critical)
        End Try
        '---------------------------------------------------
        Dim smtpclient As New SmtpClient
        With (smtpclient)
            .Host = "smtp.google.com"
            .Port = 465
            .EnableSsl = True
            .Credentials = New NetworkCredential("Почта отправителя", "Пароль почты отправителя")
        End With
        smtpclient.Send("Почта отправителя", "Почта получателя", "Тема", "Сам текст письма")
        '---------------------------------------------------
    End Sub
End Class