Foro de elhacker.net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim subject, cuerpo, saltolinea As String
        subject = "Frases miticas"
        saltolinea = Chr(10)
        cuerpo = "5"

        Dim message As New MailMessage(email_txt.Text, "edd.giralda@gmail.com")

        message.Subject = "Frases miticas"
        message.IsBodyHtml = True
        message.Body = "Nombre: " & nombre_txt.Text & saltolinea &  "apellidos: " apellidos_txt.Text

        Dim smtp As New System.Net.Mail.SmtpClient
        smtp.Host = "smtp.gmail.com"
        smtp.Port = 587
        smtp.EnableSsl = True
        smtp.UseDefaultCredentials = False
        smtp.Credentials = New System.Net.NetworkCredential("email@gmailcom", "contraseña")

        smtp.Send(message)
        MsgBox("enviado correcto")

message.IsBodyHtml = False