Enviar un correo electrónico con MailMessage
Son muchas las cuestiones que recibo acerca de cómo enviar un correo electrónico utilizando código y en concreto con .NET y VB.
Este tipo de facilidades acostumbran a ser muy utilices sobre todo en aplicaciones que puntualmente deben enviar alertas reportando situaciones en las que se requiere llamar la atención o notificar acontecimientos a personas distantes del lugar donde se producen.
Os dejo este corto, como siempre con la estructura más básica, pero practica de como enviar un correo, eso si no dudéis en continuar esta conversación si queréis ampliar el tema.
No olvidéis que necesitáis incluir los espacios de nombres : System.Net / System.Net.Mail, con los imports al inicio del proyecto.
Sub EnviarMail_Demo()
Dim Correo As New MailMessage
Correo.From = New MailAddress("MiCorreo@Proveedor.com")
Correo.To.Add(New MailAddress("TuCorreo@Proveedor.com"))
Correo.Subject = "Motivo del correo"
Correo.Body = "Detalle y texto que vas ha recibir en Tu Correo"
Dim Cartero As New SmtpClient("smtp.TuServidor.com")
Cartero.Credentials = New NetworkCredential("miCuenta@DeCorreo.com", "ClaveDeAcceso")
Cartero.Send(Correo)
End Sub
Espero que esto os ayude como punto de inicio de este espacio de nombres.
Saludos,
Pep Lluis,