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;