Imports System.Net.Mail
Imports System.Text

(...)

If ComboBox1.SelectedIndex = -1 Then
            MsgBox("Вы не выбрали получателя!")
        Else
            Try
                Dim email As New MailMessage
                Dim smtp As SmtpClient
                poluchatel = ComboBox2.SelectedItem
                smtp = New SmtpClient(smtp1)
                smtp.Credentials = New Net.NetworkCredential(mail, parol)
                email.From = New MailAddress(mail)
                email.To.Add(New MailAddress(poluchatel + ";" + copy))
                email.Body = TextBox1.Text
                email.Subject = TextBox2.Text
                If TextBox3.Text <> Nothing Then
                    email.Attachments.Add(New System.Net.Mail.Attachment(TextBox3.Text))
                End If
                smtp.Send(email)
                MsgBox("Сообщение отправлено!")
                TextBox3.Clear()
                TextBox2.Clear()
                TextBox1.Clear()
                ComboBox1.SelectedIndex = -1
                TextBox1.Text = vbCrLf + "Сообщение отправлено:" + mail
            Catch ex As Exception
                MsgBox("Данный почтовый ящик (e-mail) не существует или заблокирован!")
                TextBox3.Clear()
            End Try
        End If

        If ComboBox1.SelectedIndex = -1 Then
        MsgBox("Вы не выбрали получателя!")
         Else
         Try
        poluchatel = ComboBox2.SelectedItem
         Dim o_Mess As Object, v_Conf As String
          o_Mess = CreateObject("CDO.Message")
          v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
           o_Mess.BodyPart.CharSet = "utf-8"
          With o_Mess
        .To = poluchatel + ";" + copy
           .From = mail
          .Subject = TextBox2.Text
          .TextBody = TextBox1.Text
          If TextBox3.Text <> Nothing Then
        .AddAttachment(TextBox3.Text)
         End If
         With .Configuration.Fields
        .Item(v_Conf & "sendusing") = 2
         .Item(v_Conf & "smtpserver") = smtp1
         .Item(v_Conf & "smtpauthenticate") = 1
         .Item(v_Conf & "sendusername") = mail
         .Item(v_Conf & "sendpassword") = parol
         .Item(v_Conf & "smtpserverport") = 25
         .Item(v_Conf & "smtpusessl") = False
        .Item(v_Conf & "smtpconnectiontimeout") = 60
         .Update()
        End With
         .send()
        MsgBox("Сообщение отправлено!")
        TextBox3.Clear()
         TextBox2.Clear()
        TextBox1.Clear()
        ComboBox1.SelectedIndex = -1
        TextBox1.Text = vbCrLf + "Сообщение отправлено:" + mail
        End With

        Catch ex As Exception
        MsgBox("Сообщение не отправлено! Возможно, данный почтовый ящик не существует или заблокирован.")
        TextBox3.Clear()
        End Try
        End If