Enviar Correos

[robertocorona]

Por jemplo:

Sub EnviarPorEmail()
Dim Correo As New System.Net.Mail.MailMessage()
Correo.From = New System.Net.Mail.MailAddress("[email protected]")
Correo.To.Add("[email protected]")
Correo.Subject = "ASUNTO"
Correo.Body = ArmarMensaje()
Correo.IsBodyHtml = True
Correo.Priority = System.Net.Mail.MailPriority.Normal

Dim SMTP As New System.Net.Mail.SmtpClient
SMTP.Host = "TuServidor.SMTP.com"
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "PASSWORD")
SMTP.EnableSsl = False

Try
SMTP.Send(Correo)
'Mensaje de Envio Correcto
Catch ex As Exception
'Mensaje de error al enviar
End Try
End Sub