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
Ya se encuentra disponible para su descarga la edición de Agosto 2006 de la excelente revista MSDN Magazine.
Ya se encuentra disponible para su descarga la edición de Agosto 2006 de la excelente revista TechNet Magazine.
