Hola a todos, gracias por ayudarme con la duda anterior sobre el convertidor de unidades les comento como en el otro post que ya esta funcionando, ahora estoy haciendo este nuevo programa, el cual he tomado algunas partes y funciona,

Se trata de un porgrama para envio de correos, en el cual he podido hacer que no se tenga poner usuario y password es decir estan fijos asi como los destinatarios, hasta ahi todo correo exelente,
Pero como se trata de que se haga tipo reporte como lo indica, no he podido hacer que los labels y texbox que puse en el text de mensaje o body lleguen al correo, es decir llega en blanco, he querido ponerlos para que al personal le sea mas facil reportar su informacion.
Como puedo hacer para integrar estos combobox, labels etc, en el cuerpo del mensaje?
Si cambio la siguiente linea:
_Message.Body = Me.txtMensaje.Text.ToString

a:
_Message.Body = Me.combobox1.Text.ToString

por ejemplo, si me pone en el body lo que seleciono en el combobox, pero solo eso.

este es el codigo que estoy utilizando, ojala me puedan ayudar nuevamente
-------------------------------------------------------------------------------------------------------


Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim _Message As New System.Net.Mail.MailMessage()
Dim _SMTP As New System.Net.Mail.SmtpClient

'CONFIGURACIÓN DEL STMP
'_SMTP.Credentials = New System.Net.NetworkCredential("cuenta de correo", "contraseña")
_SMTP.Credentials = New System.Net.NetworkCredential("usuario@gmail.com", "********")
_SMTP.Host = "smtp.gmail.com"
_SMTP.Port = 587
_SMTP.EnableSsl = True

' CONFIGURACION DEL MENSAJE
_Message.[To].Add("usuario@servicios.com.mx") 'Cuenta de Correo al que se le quiere enviar el e-mail
_Message.From = New System.Net.Mail.MailAddress("usuario@gmail.com", "Produccion ", System.Text.Encoding.UTF8) 'Quien lo envía
_Message.Subject = Me.ComboBox2.Text.ToString() 'Sujeto del e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
_Message.Priority = System.Net.Mail.MailPriority.High
_Message.IsBodyHtml = True


'ENVIO
Try
_SMTP.Send(_Message)
MessageBox.Show("Reporte enviado correctamene", "Aircare", MessageBoxButtons.OK)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Application.Exit()
End Sub


End Class


imagenes: