ENVIAR EMAIL DESDE UN FORMULARIO EN VB.NET

CODIFICACIÓN:

Imports System.Net.Mail

Public Class FORM1

    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles Button1.Click

        Dim MSJ As String

        Dim PARA As String

        Dim DE As String

        Dim ASUNTO As String

        MSJ = TXT_MSJ.TEXT

        PARA = TXT_PARA.TEXT

        DE = TXT_DE.TEXT

        ASUNTO = TXT_ASUNTO.TEXT

        Try

            Dim MENSAJE As MailMessage = New MailMessage(DE, PARA)

            MENSAJE.IsBodyHtml = True

            MENSAJE.Subject = ASUNTO

            MENSAJE.Body = MSJ

            MENSAJE.BodyEncoding = System.Text.Encoding.GetEncoding(1252)

            Dim CLIENTE As SmtpClient

            CLIENTE = New SmtpClient("MAIL.CANTV.NET")

            CLIENTE.Send(MENSAJE)

        Catch EX As Exception

            MessageBox.Show(EX.Message)

        End Try

    End Sub

End Class