CODIGO PARA ENVIAR E-MAIL NAO DA

Citação:

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Mail As New MailMessage
Mail.Subject = [Ô]test email[Ô]
Mail.To.Add([Ô]meu_mail[Ô])
Mail.From = New MailAddress([Ô]meu_mail[Ô])
Mail.Body = [Ô]This is an ownage email using VB.NET[Ô]

Dim SMTP As New SmtpClient([Ô]imap.gmail.com[Ô])
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential([Ô]meu_mail[Ô], [Ô]minha_pass[Ô])
SMTP.Port = [Ô]993[Ô]
SMTP.Send(Mail)

End Sub

End Class