Visual Basic.NET - Enviar el contenido de un textbox a un correo electrónico al pulsar un boton

'Esta linea al comienzo de tu form

Imports System.Net.Mail

'De aqui en adelante donde proceses el texto....

Dim _Mensaje As New MailMessage

Dim _SMTP As New SmtpClient

Dim clave as string = "TuPasswordDeCorreo"

Dim cuerpoDelMensaje as string = "La cadena de texto que querés enviar"

Dim Origen as string = "[tu nombre de usuario]@gmail.com"

Dim Origen_Detalle as string = "Un nombre amigable para que vean del otro lado"

Dim Asunto as string = "El asunto del correo"

'CONFIGURACIÓN DEL STMP

_SMTP.Credentials = New System.Net.NetworkCredential(Origen, Clave)

_SMTP.Host = "smtp.google.com"

_SMTP.Port = 587

_SMTP.EnableSsl = True

' CONFIGURACION DEL MENSAJE

_Mensaje.From = New System.Net.Mail.MailAddress(Origen, Origen_Detalle, System.Text.Encoding.UTF8) 'Quien lo envía

_Mensaje.Subject = Asunto 'Asunto del e-mail

_Mensaje.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion

_Mensaje.Body = cuerpoDelMensaje 'contenido del mail

_Mensaje.BodyEncoding = System.Text.Encoding.UTF8

_Mensaje.Priority = System.Net.Mail.MailPriority.Normal

_Mensaje.IsBodyHtml = True

_SMTP.Send(_Mensaje)

Public Class Form1

Dim cuerpoDelMensaje as string = tbMensaje.text

_Mensaje.[To].Add("destino@sudominio.com") 'Pone la direccion donde querés enviarlo

Imports System.Net.Mail

Public Class Form1

    Private Sub btEnviar_Click(sender As Object, e As EventArgs) Handles btEnviar.Click

        'De aqui en adelante donde proceses el texto....

        Dim _Mensaje As New MailMessage

        Dim _SMTP As New SmtpClient

        Dim clave As String = "123456Abv"

        Dim cuerpoDelMensaje As String = tbMensaje.Text

        Dim Origen As String = "michael_89@gmail.com"

        Dim Origen_Detalle As String = "Michael"

        Dim Asunto As String = "asunto del correo"

        'CONFIGURACIÓN DEL STMP

        _SMTP.Credentials = New System.Net.NetworkCredential(Origen, clave)

        _SMTP.Host = "smtp.google.com"

        _SMTP.Port = 587

        _SMTP.EnableSsl = True

        ' CONFIGURACION DEL MENSAJE

        _Mensaje.From = New System.Net.Mail.MailAddress(Origen, Origen_Detalle, System.Text.Encoding.UTF8) 'Quien lo envía

        _Mensaje.[To].Add("maria_gutierrez_92@hotmail.com") 'Pone la direccion donde querés enviarlo

        _Mensaje.Subject = Asunto 'Asunto del e-mail

        _Mensaje.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion

        _Mensaje.Body = cuerpoDelMensaje 'contenido del mail

        _Mensaje.BodyEncoding = System.Text.Encoding.UTF8

        _Mensaje.Priority = System.Net.Mail.MailPriority.Normal

        _Mensaje.IsBodyHtml = True

        _SMTP.Send(_Mensaje)

    End Sub

End Class

Try

_SMTP.Send(_Mensaje)

Catch ex as exception

   MsgBox ex.innerexception.tostring

end Try