Mandar Correo Electrónico desde Windows Form Visual.Net

Vamos a crear un Form desde visual.Net 2010, en este caso lo que haremos sera un simple Form que envié un correo al destinatario el correo lo podemos enviar desde Hotmail o Gmail en nuestro caso usaremos Hotmail, nuestro buzón o correo nos servirá si quieren que las personas que obtienen su programa se pongan en contacto con el desarrollador o que simplemente nos dejen su sugerencia.

Ejemplo:

Bien  nuestro ejemplo contiene 4 Label ,4 TextBox y 2 Button los cuales tendremos que colocar como la imagen que les adjunte.

Recuerden las configuraciones el TextBox dentro de "propiedades" buscamos "Diseño" y luego "(Name)" y colocamos lo siguiente:

Configuración de TextBox:

De: txtDe
Para: txtPara
Asunto: txtAsunto
Comentario: txtMensaje

Configuración de Button:

Enviar: btnEnviar
Limpiar: btnLimpiar

ya que tenemos configurados nuestro TextBox pasamos al código:

Primero importamos las siguientes librerías:

Imports System.Net
Imports System.Net.Mail
Imports System.Text

Y Ahora Editamos El Siguente Código

Código:

Public Class Contacto

    'ESTE FORM Y CODIGO ESTA DISEÑADO POR: Joel Alvarez

    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click

        Try
            Dim SMS As New MailMessage
            With SMS
                .To.Add(txtPara.Text) 'Aca Se Pone El Correo A Cual Se Va A Enviar
                .From = New MailAddress("joel_alvarez@hotmail.com", "Joel Alvarez", Encoding.UTF8)
                .IsBodyHtml = True
                .Subject = txtAsunto.Text ' Asunto del Mensaje
                .Body = txtMensaje.Text ' Contenido Del Mensaje
            End With
            Dim Cl As New SmtpClient
            With Cl
                .Port = 587
                .Host = "smtp.live.com" ' Pueden modificarlo por la de Gmail
                .Credentials = New NetworkCredential("Correo a enviar", "Contraseña") 'Correo Y Contraseña Del Correo
                .EnableSsl = True
                .Send(SMS)
            End With

            MessageBox.Show("Mensaje Enviado Exitosamente a " & txtPara.Text, "Desarrollador ICO")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click

        txtDe.Text = " "
        txtPara.Text = " "
        txtAsunto.Text = " "
        txtMensaje.Text = " "
    End Sub
End Class


Espero les allá servido este formulario de correo suerte!!!

Posted in: Visual Basic