ty móc Geert_Gruwez's lub Epasquier's funkcja, ale I zgadywać ono nie udać się na ShellExecute funkcja, przez zbyt dużo charakter i dodatek specjalny charakter.
Tak daleko jak I znać ty instalować JCL - > ty móc swój JclMAPI jednostka jak móc:
uses
JclMAPI;
procedura TForm1.Button1Click (Nadawca
: TObject);
var
strEmail, strSubject: sznurek;
s: sznurek;
i: Integer;
zaczynać
strEmail: = "
[email protected]";
strSubject: = "Twój Temat";
// use Geert_Gruwez's funkcja lub Epasquier's funkcja ciało
s: = '';
dla I: = (0). Fields.Count-1
s: = s + Format ("%20: 20s", [stół. Fields.Fields [I]. Podpis
]);
s: = s + #13#10 + DupeString ("-", 21*table. Fields.Count) + #13#10;
podczas gdy nie stół. Eof
zaczynać
dla I: = (0). Fields.Count-1
s: = s + Format ("%20: 20s", [table.fields. Odpowiadać [I] .AsString
]);
s: = s + #13#10;
stół. Następnie;
końcówka;
JclSimpleSendMail (strEmail
, '', strSubject, s);
końcówka;