Fråga : DBGrids som är nöjd in i e-post

Hi

I har en dataset med data på mitt att bilda skapade efter långt:
->a DBGrid1 på myform med egenskapsDataSourceuppsättning till DataSource1.
->a DataSource1 med egenskapsDataSetuppsättning till ClientDataset1
->a ClientDataSet med den egenskapsProviderName uppsättningen till XMLTransformProvider1.
och egenskapsaktivet till True.
->a XMLTransformProvider1 med egenskapsFileNameuppsättningen till en xml-filename.
->and en DBNavigator med properyDataSourceuppsättningen till DataSource1.
->and jag har uppsättningen de 3 kolonnerna: ”avskiljare”, ”tm” och ”val” (dt=date, tm=time och val=value)
som persistend sätter in i DBGriden.

Now har jag gjort en knäppas som öppnar en standard e-postbeställare. Att jag har put
in kodifiera-dela upp. Men jag behöver dbgrid'snas nöjt som kopieras till förkroppsliga-section
of e-posten. Vem vet att svaret och är villigt att hjälpa mig?

Greetings, Peter Kiers
> för
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
" codeBody " " >procedure TMainForm.Button1Click (avsändare för class= " för
" klar "

Svar : DBGrids som är nöjd in i e-post

du kan använda Geert_Gruwezs, eller Epasquiers fungerar, men jag gissar den ska kuggning på ShellExecute fungerar, på grund av för mycket tecken och sakkunnigtecken.

Så långt, som jag vet, har du installerat JCL - > du kan använda dess JclMAPI enhetsnågot liknande detta:

bruk
  JclMAPI;

tillvägagångssätt TForm1.Button1Click (avsändare: TObject);
var
  strEmail strSubject: stränga;
  s: stränga;
  i: Heltal;
börja
  strEmail: = ”[email protected]”;
  strSubject: = ”ditt betvinga”;

  // bruk Geert_Gruwezs fungerar, eller Epasquiers fungerar för att frambringa förkroppsligar
  s: = '';
  för I: = 0 som bordlägger. Fields.Count-1 gör
    s: = s + formaterar (”%20: 20-tal”, [bordlägga. Fields.Fields [I]. Förse med text]);
  s: = s + #13#10 + DupeString (”-”, 21*table. Fields.Count) + #13#10;
  stunder att inte bordlägga. Eof gör
  börja
    för I: = 0 som bordlägger. Fields.Count-1 gör
      s: = s + formaterar (”%20: 20-tal”, [table.fields. Sätter in [I] .AsString]);
    s: = s + #13#10;
    bordlägga. Därefter;
  avsluta;

  JclSimpleSendMail (strEmail, '', strSubject, s);
avsluta;
Andra lösningar  
 
programming4us programming4us