xBaart

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("[email protected]".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 = "[email protected]".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("[email protected]".Trim.ToString) 
2- creds.UserName = "[email protected]".Trim.ToString 3- creds.Password = "12345678910".Trim.ToString --
Resultado Final:
-
-
-
Atenciosamente, Stigal.