Envio SMTP

 'Espero ter ajudado o amigo, o meu código está funcional...
 'Imports
 Imports System.Net.Mail


 Dim Msg As MailMessage = New MailMessage

 Private Sub Enviar

        Dim MySmtp As New SmtpClient
        Dim MyHtml As String = RichTextBox1.Text
        Dim VistaHtml As AlternateView = AlternateView.CreateAlternateViewFromString(MyHtml, Nothing,
        System.Net.Mime.MediaTypeNames.Text.Html)

        Try

            Dim Msg As MailMessage = New MailMessage

            Msg.AlternateViews.Add(VistaHtml)
            Msg.From = New MailAddress(TextBox1.Text, TextBox6.Text)
            Msg.To.Add(TextBox6.Text)
            Msg.Subject = (TextBox4.Text)
            Msg.Body = RichTextBox1.Text
            Msg.Priority = MailPriority.Normal

            'Aqui você tiver um anexo na ListBox
            If ListBox1.Items.Count = 1 Then

                Dim d As Integer = 0
                For d = 0 To ListBox1.Items.Count - 1

                    Msg.Attachments.Add(New Attachment(ListBox1.Items(d)))

                Next
            Else
            End If
            ' Aqui seleciona seu SMTP conforme seu email de login
            Dim Origem As String = TextBox1.Text
            Origem = Origem.Remove(0, Origem.IndexOf("@") + 1)

            If Origem = "gmail.com" Then
                MySmtp.Host = "smtp.gmail.com"

            ElseIf Origem = "hotmail.com" Then
                MySmtp.Host = "smtp.live.com"

            ElseIf Origem = "yahoo.com.br" Then
                MySmtp.Host = "smtp.yahoo.com.br"

            ElseIf Origem = "yahoo.com" Then
                MySmtp.Host = "smtp.yahoo.com"

            ElseIf Origem = "live.com" Then
                MySmtp.Host = "smtp.live.com"

            ElseIf Origem = "bol.com.br" Then
                MySmtp.Host = "smtps.bol.com.br"

            ElseIf Origem = "outlook.com" Then
                MySmtp.Host = "smtp-mail.outlook.com"

            ElseIf Origem = "terra.com.br" Then
                MySmtp.Host = "smtp.terra.com.br"

            ElseIf Origem = "uol.com.br" Then
                MySmtp.Host = "smtps.uol.com.br"

            ElseIf Origem = "ig.com.br" Then
                MySmtp.Host = "smtp.ig.com.br"

            ElseIf Origem = "globo.com" Then
                MySmtp.Host = "smtp.globo.com"

            ElseIf Origem = "ibest.com.br" Then
                MySmtp.Host = "smtp.ibest.com.br"

            ElseIf Origem = "brturbo.com.br" Then
                MySmtp.Host = "smtp.brturbo.com.br"

            ElseIf Origem = "mail.ru" Then
                MySmtp.Host = "smtp.mail.ru"

            ElseIf Origem = "yandex.com" Then
                MySmtp.Host = "smtp.yandex.com"

            ElseIf Origem = "sapo.pt" Then
                MySmtp.Host = "smtp.sapo.pt"

            ElseIf Origem = "sapo.cv" Then
                MySmtp.Host = "smtp.sapo.cv"

            ElseIf Origem = "sapo.ao" Then
                MySmtp.Host = "smtp.sapo.ao"

            ElseIf Origem = "sapo.mz" Then
                MySmtp.Host = "smtp.sapo.mz"

            ElseIf Origem = "sapo.tl" Then
                MySmtp.Host = "smtp.sapo.tl"

            ElseIf Origem = "meo.pt" Then
                MySmtp.Host = "smtp.meo.pt"
            End If

            MySmtp.EnableSsl = True

         'Seleciona a porta conforme seu ToolStripComboBox1, senão usa a porta 587

            If ToolStripComboBox1.SelectedItem Then

                MySmtp.Port = ToolStripComboBox1.SelectedItem

            Else
                MySmtp.Port = "587"

            End If

            MySmtp.UseDefaultCredentials = False

            ' Suas credenciais de login: email e senha
            MySmtp.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

            ' Envia sua mensagem
            MySmtp.Send(Msg)

            MsgBox("Seu email foi enviado com sucesso para:" & " " & TextBox3.Text & " " & Now, MsgBoxStyle.Information, "Atenção!")


        Catch ex As Exception
         MsgBox(ex.Message)
        End Try
 End Sub