Почтовый клиент не отправляет сообщения

 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))
                email.Body = TextBox1.Text
                email.Subject = TextBox2.Text
                If TextBox3.Text <> "" 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("Сообщение не отправлено! Возможно, данный почтовый ящик не существует или заблокирован.")
            End Try
        End If