none
[ajuda] Mandando email pelo Vb RRS feed

Respostas

  • dentro do botao coloque :

    Dim newmail As New MailMessage newmail.From = New MailAddress("Email de Origem") newmail.To.Add("Email de Destino") newmail.Subject = "Titulo do email" newmail.Body = "corpo do texto" Dim smtpserver As New SmtpClient smtpserver.Host = ("smtp.gmail.com") smtpserver.Port = "587" smtpserver.Credentials = New System.Net.NetworkCredential("email de origem", "senha do email") smtpserver.EnableSsl = True Try Cursor = Cursors.WaitCursor smtpserver.Send(newmail) Cursor = Cursors.Default MsgBox("E-mail enviado com sucesso", MsgBoxStyle.SystemModal) Catch ex As Exception Cursor = Cursors.Default MsgBox("Erro ao enviar e-mail, tente novamente mais tarde", MsgBoxStyle.SystemModal) End Try

    esperoque ajude ;)


    AleSaggiorato

    esqueci , tem que importar o seguinte :

    Imports system.net.mail

    • Editado AleSaggiorato sábado, 2 de março de 2013 18:29
    • Marcado como Resposta Felipe Meghi sábado, 2 de março de 2013 19:56
    sábado, 2 de março de 2013 18:28

Todas as Respostas