Enviando e-mail pelo VB.NET

Olá pessoal,

Hoje vou postar como enviar e-mail através do VB.NET, o código esta comentado, então não será necessário explicar.

Antes de começar, no cabeçalho do código, onde ficam os Imports, coloque o seguinte importe para que nosso método de envio de e-mail possa funcionar.

Imports System.Net.Mail

Agora sim, o método para enviar o e-mail é este, logo abaixo:


   Protected Sub send()
        Dim objNovoEmail As New MailMessage
        Dim objSmtp As New SmtpClient

        'Adicionando o e-mail do remetente
        objNovoEmail.From = New MailAddress(txtEmailRemetente.Text)

        'Adicionando o e-mail do destinatário
        objNovoEmail.To.Add(New MailAddress(txtEmailDestinatario.Text))

        'Adiciona a prioridade do e-mail
        objNovoEmail.Priority = MailPriority.High

        'Adicionando o assunto ao atributo assunto
        objNovoEmail.Subject = txtAssunto.Text

        'Formato de e-mail em Html?
        objNovoEmail.IsBodyHtml = True

        'Inserir o corpo da mensagem no atributo Body
        objNovoEmail.Body = txtMensagem.Text

        'Configuração de tipagem da linguagem, para não aparecer caracteres estranhos na mensagem
        objNovoEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
        objNovoEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")

        'Adicionando os campos dos atributos da configuração do e-mail
        'parametros necessários para envio de e-mail.


        'Configuração do IP do servidor SMTP
        'Por exemplo: smtp.mail.yahoo.com.br (EXEMPLO)
        objSmtp.Host = txtServidorSmtp.Text
        objSmtp.Port = txtPorta.Text

        'Caso queira definir um tempo do timeout 
        'objSmtp.Timeout = 10


        'Define se deve usar autenticação ou não
        If txtUsuario.Text <> String.Empty And txtSenha.Text <> String.Empty Then
            objSmtp.Credentials = New System.Net.NetworkCredential(txtUsuario.Text, txtSenha.Text)
        End If

        If txtUsuario.Text = String.Empty Then
            objSmtp.UseDefaultCredentials = False
        End If

       'Habilitar SSL ou não? 
        objSmtp.EnableSsl = chkSSL.CheckState

        'Enviando a mensagem por e-mail
        Try
            objSmtp.Send(objNovoEmail)
        Catch ex As Exception
            Throw ex
        Finally
            objNovoEmail.Dispose()
        End Try
        objNovoEmail.Dispose()
    End Sub


Obs¹.: Atente-se que em alguns trechos de código os atributos estão recebendo alguns TextBox, que são do meu form (formulário visual).


No seu formulário (form) deverá ter um botão de enviar, que deverá colocar o seguinte código para chamar o método send().

Obs².: Atente-se que o código que deverá ser inserido no seu botão começa à partir do comando Try até o End Try.


Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Try
            send()
            MessageBox.Show("E-mail enviado com sucesso!", "Send mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Falha!" & ex.ToString, "Send mail", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
   End Sub

Logo abaixo, um screen do projeto que fiz como teste, caso tenham dúvidas utilizem o campo para comentários que tentarei responder à todos da melhor forma possível.

Um abraço e bom estudo.