Mandar E-Mails desde VB.NET

mayo 31 20102 comentarios

Guardado en : Microsoft, Programación

ANTES QUE NADA, NO ME HAGO RESPONSABLE POR EL USO QUE LE PUEDAN DAR A ESTA INFORMACIÓN, LA PUBLICACIÓN DE ESTE MATERIAL ESTA HECHO CON FINES DE LUCRO NETAMENTE EDUCATIVO

Para la realización de este tutorial utilizamos Visual Basic.NET.

Lo primero que debemos hacer es crear un proyecto y crear un formulario que se asemeje a la siguiente imagen.

Elementos utilzados

  • Cuatro TextBox con los nombres (propiedad name): txtDe, txtPara, txtAsunto y txtMensaje, este último con la propiedad Mutiline habilitada.
  • Un Button con nombre (propiedad name): btnEnviar.

Accedemos al código de nuestro programa, y debajo del nombre de nuestra clase pondremos la siguiente función que se encarga de verificar la conexión a internet.

 Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Dentro del código del botón Enviar pondremos el siguiente código:

Dim Ret As Long
        'Si el Api retorna 0 quiere decir que no hay ningun tipo de conexión de Red
        If IsNetworkAlive(Ret) = 0 Then
            MsgBox("No existe conexion a internet" & vbNewLine + "Error enviando E-Mail." & vbNewLine & vbNewLine + "Por favor revise su conexion a internet" & vbNewLine + "e intentelo nuevamente.", MsgBoxStyle.Exclamation)
        Else
            Dim MyMailMsg As New Net.Mail.MailMessage
            Dim HostName As String = My.Computer.Name
 
            Try
                MyMailMsg.From = New Net.Mail.MailAddress(Me.txtDe.Text)
                MyMailMsg.To.Add(Me.txtPara.Text)
                MyMailMsg.Subject = Me.txtAsunto.Text
 
                MyMailMsg.Body = Me.txtMensaje.Text
                Dim SMTP As New Net.Mail.SmtpClient("smtp.live.com")
                'Para enviar por Hotmail utilizamos smtp.live.com y para enviar por Gmail utilizamos smtp.gmail.com

                SMTP.Port = 587
                SMTP.EnableSsl = True
 
                SMTP.Credentials = New System.Net.NetworkCredential("correovalido@hotmail.com", "contraseña")
                'Aquí es necesario utilizar una cuenta de correo electrónico válida para que podamos mandar nuestros correos.

                SMTP.Send(MyMailMsg)
                MsgBox("Tu E-Mail se ha enviado exitosamente", MsgBoxStyle.Information, "Listo!!")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

Probamos nuestro programa.

Llenamos los datos para mandar un mensaje

Mandamos nuesto mensaje.

Mensaje de confirmación.

Verificamos que el correo llegue a nuestro destino.

Mensaje recibido.

Mensaje de nuestro correo.

Listo!!.. Espero sea de mucha ayuda.

Dudas, comentarios ó sugerencias, estamos para servirte!

Saludos!!

Comparte esta información:
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google Bookmarks
  • BarraPunto
  • LinkedIn
  • Technorati
  • TwitThis

Quizá te interese :

Acerca del autor: Jorge

Estudiante de la carrera de Ingeniería en Sistemas Computacionales en el Instituto Tecnológico Superior de Cosamaloapan. Puedes contactarme sobre mis artículos en jsosa@smartdsign.net

2 Respuestas a “Mandar E-Mails desde VB.NET”

  1. Carlos dice:
    6 junio 2010 en 10:01

    ¿Podrias confirmar tomando tu ejemplo si con el smtp.live.com de hotmail se van a la carpeta correo no deseado? Creo que antes si se podia pero ya no es asi.

  2. Jorge Sosa Suazo dice:
    8 junio 2010 en 10:16

    Eso depende del correo destino, he probado con varios y la mayoría llegan a la bandeja de entrada.. solo con alguno llegan a los no deseados.. Saludos!!

    ?

Deja un comentario

«
»

Licencia y uso

Las técnicas demostradas en los tutoriales pueden ser utilizadas sin ninguna limitación y tampoco es obligatorio dar una atribución.


Los textos, imágenes y tutoriales son propiedad de sus respectivos autores, nuestro contenido se encuentra bajo licencia Creative Commons Share-Alike.

Escribe algo para el sitio

El escribir un tutorial o un artículo, mandarnos un enlace para Ubicuos, no solamente es una forma de obtener publicidad, si no también de dar algo a la comunidad y nosotros te lo recompensamos con los premios del mes! Leer más de nuestras promociones

¿Sugerencias?

Este es TU sitio, si tienes sugerencias o ideas de cómo podemos mejorarlo para ti, ¡Por favor háznoslos saber!

Hacemos nuestro mayor esfuerzo en proporcionar un sitio útil y amigable y esperamos que disfrutes tu tiempo aquí.

Ayuda a Difundir

Te gusta Ubicuos?

Ve las formas en que nos puedes apoyar.

Apoyando a Ubicuos.com

Submit your linkClose

-->