Cuestión : Contenido de DBGrid en email

Hola, el

I tiene un grupo de datos con datos sobre mi forma creó la manera siguiente: el
->a DBGrid1 en myform con el sistema del DataSource de la característica a DataSource1.
->a DataSource1 con el sistema del grupo de datos de la característica ClientDataset1 al
->a ClientDataSet con el sistema de ProviderName de la característica a XMLTransformProvider1.
y Active de la característica a True.
->a XMLTransformProvider1 con el sistema del nombre de fichero de la característica a un xml-filename.
->and un DBNavigator con el sistema del DataSource del propery a DataSource1.
->and he fijado las 3 columnas: “despegue”, “TM” y (dt=date, tm=time, y val=value)
como campos del persistend en el DBGrid. el

Now he hecho un botón que abre a cliente de email estándar. Que tengo put
in la código-sección. Pero necesito el contenido de los dbgrid copiado al cuerpo-section
of el email. ¿Quién sabe que la respuesta y está dispuesta a ayudarme?

Greetings, Peter Kiers
class= > " claro " del

> del " codeSnippet " del class= del

class= " lineNumbers " del

class= del

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

>procedure notpretty TMainForm.Button1Click (remitente " del class= " del id= " codeSnippet757752 del

class= del

Respuesta : Contenido de DBGrid en email

usted puede utilizar las funciones de Geert_Gruwez o de Epasquier, pero conjeturo que fallará en la función de ShellExecute, debido a demasiado carácter y carácteres especiales.

Por lo que sé usted ha instalado el JCL - > usted puede utilizar su unidad de JclMAPI como esto:

aplicaciones
  JclMAPI;

procedimiento TForm1.Button1Click (remitente: TObject);
var
  strEmail, strSubject: secuencia;
  s: secuencia;
  i: Número entero;
comenzar
  strEmail: = “[email protected]”;
  strSubject: = “su tema”;

  función de Geert_Gruwez del uso de // o función de Epasquier para generar el cuerpo
  s: = '';
  para I: = 0 a la tabla. Fields.Count-1 hace
    s: = s + formato (“%20: 20s”, [tabla. Fields.Fields [I]. Subtítulo]);
  s: = s + #13#10 + DupeString (“-”, 21*table. Fields.Count) + #13#10;
  mientras que no tabla. El Eof hace
  comenzar
    para I: = 0 a la tabla. Fields.Count-1 hace
      s: = s + formato (“%20: 20s”, [table.fields. Coloca [I] .AsString]);
    s: = s + #13#10;
    tabla. Después;
  extremo;

  JclSimpleSendMail (strEmail, '', strSubject, s);
extremo;