Sie können Geert_Gruwezs oder Epasquiers Funktionen verwenden, aber ich schätze, dass es auf ShellExecute Funktion, wegen zu vielen Buchstabens und Sonderzeichen ausfällt.
Insoweit ich weiß, angebracht Sie JCL t - > können Sie seine JclMAPI Maßeinheit so benutzen:
Gebrauch
JclMAPI;
Verfahren TForm1.Button1Click (Absender
: TObject);
var
strEmail, strSubject: Schnur;
s: Schnur;
I: Ganze Zahl;
anfangen
strEmail: = „
[email protected]“;
strSubject: = „Ihr Thema“;
//-Gebrauch Geert_Gruwezs Funktion oder Epasquiers Funktion, zum des Körpers zu erzeugen
s: = '';
für I: = tun 0 zum Tabelle. Fields.Count-1
s: = s + Format („%20: 20s“, [Tabelle. Fields.Fields [I]. Untertitel
]);
s: = s + #13#10 + DupeString („-“, 21*table. Fields.Count) + #13#10;
während nicht Tabelle. EOF tun
anfangen
für I: = tun 0 zum Tabelle. Fields.Count-1
s: = s + Format („%20: 20s“, [table.fields. Auffängt [I] .AsString
]);
s: = s + #13#10;
Tabelle. Zunächst;
Ende;
JclSimpleSendMail (strEmail
, '', strSubject, s);
Ende;