Spanish [SOLUCIONADO] Enviar formato de celdas por SMTP

RAFA BRAVO

Active Member
Licensed User
Longtime User
Buenas, traigo la siguiente cuestión. Se podría extraer de un Excel datos y copiarlos en el cuerpo de un correo para que quede con el formato de celdas de Excel? Se, que de una forma manual puedes copiar las celdas que necesites y al pegarlas en un correo se obtiene lo que busco. Pero se podría hacer esto con la librería jnet (SMTP).
Gracias, un saludo
 

RAFA BRAVO

Active Member
Licensed User
Longtime User
Estoy mirando fuera del foro algún camino así, pero de html se lo básico, así que tengo que mirarlo bien. Si consigo algo lo comunico, gracias
 

h.drose

Member
No creo que sea posible pegar los datos en el cuerpo del correo tal cual el formato de celdas de Excel pero el ejemplo de @RAFA BRAVO si podria funcionar.
 

RAFA BRAVO

Active Member
Licensed User
Longtime User
Si lo se, pero no busco eso, solo conseguir un formato de tablas donde la información se pueda visualizar de una forma ordenada y rápida mediante e-mail (como se venia haciendo, pero de una forma automática)
Finalmente los datos no los obtengo de Excel si no de una db paralela que tengo.
las tablas HTML y el style lo introduzco en una cadena:
B4X:
SMTP.Body = ($" <style> table,th,td {border: 1px solid; border-collapse: collapse;} th, td {padding: 10px;} caption {caption-align: center;} </style> <caption> Incidencias Calidad </caption> <table style="width: 100%;">  <tr> <th> Parabrisas Kuga </th> <td> Vin / sec </td> <td> ${WSkugaMail} </td> <th> Luneta Doble Transit </th> <td> Vin / sec </td> <td> ${BLdobleMail} </td> </tr> <tr> <th> Luneta Kuga </th> <td> Vin / sec </td> <td> ${BLkugaMail} </td> <th> Luneta Tailgate Transit </th> <td> Vin / sec </td> <td> ${BLTailgateMail} </td> </tr> <tr> <th> Custodias Kuga </th> <td> Vin / sec </td> <td> ${HSkugaMail} </td> <th> Custodia LWB transit </th> <td> Vin / sec </td> <td> ${largaMail} </td> </tr> <tr> <th> Parabrisas Transit </th> <td> Vin / sec </td> <td> ${WStransitMail} </td> <th> Custodia SWB Transit </th> <td> Vin / sec </td> <td> ${cortaMail} </td> </tr> </table> "$)
Esta es una tabla que tiene siempre la misma estructura.

B4X:
Sub bodyHTML
    HTMLstr = $" <style> table,th,td {border: 1px solid; border-collapse: collapse;} th, td {padding: 10px;} caption {caption-align: center;} </style> <caption> Incidencias Calidad </caption> <table style="width: 100%;">  <tr> <th> VIN </th> <th> Caildad </th> </tr> "$
    For i=0 To vinCalidad.size-1
        If i = vinCalidad.size-1 Then
            HTMLstr = HTMLstr & $"<tr> <td> ${vinCalidad.Get(i)} </td> <td> ${incidenciaCalidad.Get(i)} </td> </tr> </table> "$
        Else
        HTMLstr = HTMLstr & $"<tr> <td> ${vinCalidad.Get(i)} </td> <td> ${incidenciaCalidad.Get(i)} </td> </tr> "$
        End If
    Next
    estadoMail = "calidad"
    Dim rsEmailGoogle As ResumableSub = EmailGoogle
    Wait For (rsEmailGoogle) complete (resultado As Object)
End Sub

Esta tabla varia, dependiendo de los datos que introduzcas ese día tendrás mas o menos filas.
Aquí paso los dos ejemplos por si a alguien le interesa, no he conseguido centrar el texto de arriba, podéis dar ideas, aunque pondré el hilo como solucionado.
huella.png
incidencias.png
 
Top