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

Anuncios

Un comentario el “Como enviar E-mails desde nuestras aplicaciones

  1. Hola
    Oye gracias por el aporte
    Se necesita importa alguna libreria para correr esta clase
    haa y Que instruccion se debe poner para cargar un archivo Adjunto

    Sin mas por el momento me despido

    Juan alvaro

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s