[Source+Tutorial] Visual Basic 2008 - Send E-Mail

• Irá precisar de:

  3 - TextBox

  2 - Label

  2 - Button

  1 - Conta GMail

  -

  -

• Tutorial:

  #TextBox:

  TextBox1 = Será o e-mail que você enviara a mensagem (deixar no tamanho médio)

  TextBox2 = Será aonde você escreverá o assunto da mensagem (deixar tamanho médio)

  TextBox3 = Será aonde você escreverá a mensagem (e-mail) deixar com MultiLine e Grande!

  -

  #Label:

  Label1 = Renomear para "E-Mail Destino:"

  Label2 = Renbmear para "Assunto:"

  -

  #Button

  Button1 = Renomar para "Enviar"

  Button2 = Renomar para "Fechar"

  -

  #Conta GMail:

  Se não tiver registrar em: 

  https://mail.google.com/

  -

  -

• Source/Código:

  Imports System.Net.Mail
  Public Class Form1
      Dim cliente As New SmtpClient
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Try
              Dim EmailOrigem As New MailAddress("SEUEMAIL@gmail.com".Trim.ToString)
              Dim EmailDestino As New MailAddress(TextBox1.Text.Trim.ToString)
              Dim Mensagem As New MailMessage
              Mensagem.To.Add(EmailDestino)
              Mensagem.From = EmailOrigem
              Mensagem.Subject = TextBox2.Text.Trim.ToString
              Mensagem.Body = TextBox3.Text.Trim.ToString
              Mensagem.IsBodyHtml = True
              cliente.Host = "smtp.gmail.com".Trim.ToString
              cliente.Port = 587
              Dim creds As New System.Net.NetworkCredential
              creds.UserName = "SEUEMAIL@gmail.com".Trim.ToString
              creds.Password = "SENHAEMAIL".Trim.ToString
              cliente.EnableSsl = True
              cliente.UseDefaultCredentials = False
              cliente.Credentials = creds
              cliente.Send(Mensagem)
          Catch ex As Exception
              MsgBox("Não foi possivel enviar o email. Mais detalhes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Erro ao enviar")
          End Try
      End Sub
  
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
          Close()
      End Sub
  End Class
  

  Exemplos:

  1- Dim EmailOrigem As New MailAddress("StigalGato@gmail.com".Trim.ToString) 

  2- creds.UserName = "StigalGato@gmail.com".Trim.ToString
  3- creds.Password = "12345678910".Trim.ToString
  -

  -

• Resultado Final:

  

  -

  -

  -

Atenciosamente, Stigal.