Questione : Soddisfare del DBGrid nel email

Ciao, il

I ha un gruppo di dati con i dati sulla mia forma ha generato il seguente senso:
->a DBGrid1 su myform con l'insieme di DataSource della proprietà a DataSource1.
->a DataSource1 con l'insieme di gruppo di dati della proprietà ClientDataset1 a
->a ClientDataSet con l'insieme di ProviderName della proprietà a XMLTransformProvider1.
ed Active della proprietà a True.
->a XMLTransformProvider1 con l'insieme di nome di schedario della proprietà ad un xml-filename.
->and un DBNavigator con l'insieme di DataSource di propery a DataSource1.
->and ho regolato le 3 colonne: “distacco„, “il TM„ e (dt=date, tm=time e val=value)
come campi del persistend nel DBGrid.

Now ho fatto un tasto che apre un cliente di email standard. Che ho put
in la codice-sezione. Ma ho bisogno del soddisfare dei dbgrid copiato al corpo-section
of il email. Chi sa che la risposta ed è disposta ad aiutarlo?

Greetings, Peter Kiers
class= > " libero " 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 (mittente " del class= " del id= " codeSnippet757752 del

class= del

Risposta : Soddisfare del DBGrid nel email

potete usare le funzioni del Epasquier o del Geert_Gruwez, ma indovino che verrà a mancare sulla funzione di ShellExecute, a causa di troppi carattere e caratteri speciali.

Per quanto so avete installato il JCL - > potete usare la relativa unità di JclMAPI come questo:

usi
  JclMAPI;

procedura TForm1.Button1Click (mittente: TObject);
varietà
  strEmail, strSubject: stringa;
  s: stringa;
  i: Numero intero;
cominciare
  strEmail: = “[email protected]„;
  strSubject: = “il vostro oggetto„;

  funzione del Geert_Gruwez di uso di // o funzione del Epasquier per generare corpo
  s: = '';
  per la I: = 0 alla tabella. Fields.Count-1 fa
    s: = s + disposizione (“%20: 20s„, [tabella. Fields.Fields [I]. Titolo]);
  s: = s + #13#10 + DupeString (“-„, 21*table. Fields.Count) + #13#10;
  mentre non tabella. Il Eof fa
  cominciare
    per la I: = 0 alla tabella. Fields.Count-1 fa
      s: = s + disposizione (“%20: 20s„, [table.fields. Sistema [I] .AsString]);
    s: = s + #13#10;
    tabella. Dopo;
  estremità;

  JclSimpleSendMail (strEmail, '', strSubject, s);
estremità;