Buenas queria preguntar como puedo hacer pasar los datos de un msflexgrid a un nuevo mail de outolook pero ordenados como esta en el msflexgrid
La idea es enviar por mail un presupuesto y puedo enviar los datos recorriendo el msflexgrid y pasando estos datos auna variable pero no quedan ordenamos. Estuve mirando que puedo pasarlos a una tabla de word, bueno esa es mas o menos la idea pero a un nuevo mail
mas o menos esta es la idea
codigo descripcion talle/modelo precio unitario importe
----------------------------------------------------------------------------------------------------
1 Zapatillas 12.5 125,54 125,54
...... ......... ............. .............. .............
....... ........ ........... ........... ...........
importe total : 125,54
Bueno esa es la idea
este es el dodigo que uso
Dim i As Integer
For i = 0 To MSFlexGrid1.Rows - 1
cuerpo = cuerpo & MSFlexGrid1.TextMatrix(i, 0) & " " & MSFlexGrid1.TextMatrix(i, 1) & " " & MSFlexGrid1.TextMatrix(i, 2) & " " & MSFlexGrid1.TextMatrix(i, 3) & " " & MSFlexGrid1.TextMatrix(i, 4) & " " & MSFlexGrid1.TextMatrix(i, 5) & " " & MSFlexGrid1.TextMatrix(i, 6) & " " & MSFlexGrid1.TextMatrix(i, 6)
Next
Const SW_NOMBRE = 1
msn = "mailto:" & Text6.Text & "?body=" & cuerpo & "&subject=" & "Presupuesto MC3"
Dim X
X = ShellExecute(Me.hwnd, "Open", msn, &O0, &O0, SW_NORMAL)
Bueno espero su ayuda gracias
