El conocimiento es libre, la información no.

Enviar e-mail desde VB .NET


Todo se programa en el boton Enviar...

Dim _Message As New System.Net.Mail.MailMessage()

Dim _SMTP As New System.Net.Mail.SmtpClient



'CONFIGURACIÓN DEL STMP

_SMTP.Credentials = New System.Net.NetworkCredential("cuenta de correo", "contraseña")

_SMTP.Host = "smtp.gmail.com"

_SMTP.Port = 587

_SMTP.EnableSsl = True



' CONFIGURACION DEL MENSAJE

_Message.[To].Add(Me.txtPara.Text.ToString) 'Cuenta de Correo al que se le quiere enviar el e-mail

_Message.From = New System.Net.Mail.MailAddress("cuenta de correo", "nombre", System.Text.Encoding.UTF8) 'Quien lo envía

_Message.Subject = Me.txtAsunto.Text.ToString 'Sujeto del e-mail

_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion

_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail

_Message.BodyEncoding = System.Text.Encoding.UTF8

_Message.Priority = System.Net.Mail.MailPriority.Normal

_Message.IsBodyHtml = False



'ENVIO

Try

_SMTP.Send(_Message)

MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)

Catch ex As System.Net.Mail.SmtpException

MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)




End Try

'Bueno el boton salir lo programan ud's mismos..
'Sólo es un me.close


En términos quedaría así..