Como enviar E-mails desde nuestras aplicaciones

Hola a tod@s 

Aqui les dejo algunos trocitos de codigo para enviar e-mail desde nuestras aplicaciones… espero que le saquen mucho provecho… 

”’ <summary>

”’ Esta clase se encarga de enviar E-mail desde una aplicación desarrallada para Windows.”’ </summary>

”’ <remarks>Es importante señalar que si no se tiene conexion a intenet sencillamente no sera enviado el Email</remarks>

Public Class cls_EnviarEmail

”’ <summary>

”’ Esta Función se encarga de enviar E-mail.

”’ </summary>

”’ <remarks>Para el uso de esta clase se deben pasar como parametros las siguientes Variables:</remarks>

”’ <param name=”strOrigen” > Es el Correo Electronico que enviara al destinatario</param>

”’ <param name=”strDestinatario”>Es el Correo Electronico al cual sera destinado</param>

”’ <param name=”strCopia”>Es el Correo Electronico al cual sera destinado como Copia</param>

”’ <param name=”strCopiaOculta”>Es el Correo Electronico al cual sera destinado como Copia Oculta</param>

”’ <param name=”strAsunto”>Es el asunto del cual tratara el Email que sera enviado</param>

”’ <param name=”strMsg”>Es el Mensaje que se enviara, cabe destacar que puede recibir en formato HTML</param>

”’ <param name=”intPrioridad”>Se determina mediante numero el nivel de Prioridad del mensaje en donde: 0=Normal, 1=Baja y 2=Alta</param>

Public Shared Function SendEMail(ByVal strOrigen As String, ByVal strDestinatario As String, ByVal strCopia As String, ByVal strCopiaOculta As String, ByVal strAsunto As String, ByVal strMsg As String, ByVal intPrioridad As Integer) As Boolean

Dim email As New System.Net.Mail.MailMessageDim strHostAddress As String = “mail.cantv.net” ‘Pueden reemplazar el Mail.cantv.net por el servidor de correo que ustedes posean

Dim objSmtp As New Net.Mail.SmtpClient(strHostAddress)Try

email.From = New Net.Mail.MailAddress(strOrigen)email.To.Add(strDestinatario)email.CC.Add(strCopia)email.Bcc.Add(strCopiaOculta)email.Subject = strAsunto

email.Body = strMsg

email.IsBodyHtml = True

If intPrioridad = 1 Then

email.Priority = Net.Mail.MailPriority.LowElseIf intPrioridad = 2 Then

email.Priority = Net.Mail.MailPriority.HighElse

email.Priority = Net.Mail.MailPriority.NormalEnd If

objSmtp.Send(email)Catch ex As ExceptionEnd Try

End FunctionEnd Class

Saludos,

Alexander Jiménez