none
Enviar por email orden de trabajo en VB RRS feed

  • Pregunta

  • Buenas tardes, estoy realizando una aplicacion donde el usuario pueda generar una orden de trabajo, y la envie por email. el problema esta en que no logro modificar el body (correo.body) para que luzca asi: la idea es que aparezca el Label y al lado el textbox o combobox que cargo el usuario... en el cuerpo del mensaje...

    la aplicacion ya me funciona pero no logro hacer mas de una linea en el body y necesito varias... 

    les dejo un ejemplo por si alguno puede darme una mano. Gracias.

    Usuario Solicitante: solicitante.text

     Asunto: asunto.text

     Descripción detallada:descripcion.text

     Fecha y horario de incidencia: fecha.text

     Equipo asignado: combobox

     Asignado a:combobox

     Estado de incidencia: combobox

    Dim correo As New System.Net.Mail.MailMessage(txtde.Text, txtpara.Text)
                correo.IsBodyHtml = True
                correo.Subject = "Alta de incidencia."
                correo.Body = ¡?¡?¡?¡?¡

    viernes, 11 de mayo de 2012 19:53

Todas las respuestas

  • Buenas noches,

    Lo que necesitas es armar esa estructura en HTML, lo puedes hacer con tablas, crea una función armarBody() o algo asi que devuelva el String del body y pasala a la propiedad Body justamente.

    Esto te puede ayudar.

    http://www.webestilo.com/html/cap5a.phtml

    Saludos 

    miércoles, 16 de mayo de 2012 1:11
  • Hola buen dia! si investigando un poco pude mostrar algunas cosas cuando envio el Email, pero resulta que algo me falta, porque pude mostrar el texto que queria pero enlos textbox o fecha no pude mostrarlos... te paso lo que que vengo haciendo:

    el problema es que en todos los textbox o me tiran el mismo error... cuendo coloco texto... y quiero enviar la solicitud..

    No se controlo InvalidCastexception

    La conversión de la cadena "mensaje de prueba" en el tipo 'Integer' no es válida.

    Dim cuerpo As String = ""
            cuerpo = cuerpo & "<table>"
            cuerpo = cuerpo & "<td><tr><b>Alta de incidencia</b></tr></td>"
            cuerpo = cuerpo & "<td><tr>DATOS DE INCIDENCIA</tr></td>"
            cuerpo = cuerpo & "<td><tr></tr></td>"
            'cuerpo = cuerpo & "<td><tr>Usuario Solicitante: </tr></td>"(cbsolicitante.Text)
            cuerpo = cuerpo & "<td><tr></tr></td>"
            cuerpo = cuerpo & "<td><tr>Asunto: </tr></td>"(txtasunto.Text))
            cuerpo = cuerpo & "<td><tr></tr></td>"
            'cuerpo = cuerpo & "<td><tr>Descripción detallada:  </tr></td>"(txtdescripcion.Text)
            cuerpo = cuerpo & "<td><tr></tr></td>"
            'cuerpo = cuerpo & "<td><tr>Fecha y horario de incidencia: </tr></td>"(cbfecha.text)

    Try
                Dim correo As New System.Net.Mail.MailMessage(txtde.Text, txtpara.Text)
                correo.IsBodyHtml = True
                correo.Subject = "Alta de incidencia."
                correo.Body = cuerpo

    Gracias!

    jueves, 17 de mayo de 2012 14:25