você pode usar funções de Geert_Gruwez ou de Epasquier, mas eu supor que falhará na função de ShellExecute, por causa de demasiados caráter e caráteres especiais.
Tanto quanto eu sei você instalou o JCL - > você pode usar sua unidade de JclMAPI como este:
usos
JclMAPI;
procedimento TForm1.Button1Click (remetente
: TObject);
var
strEmail, strSubject: corda;
s: corda;
i: Inteiro;
começar
strEmail: = “
[email protected]”;
strSubject: = “seu assunto”;
função de Geert_Gruwez do uso de // ou função de Epasquier para gerar o corpo
s: = '';
para I: = 0 à tabela. Fields.Count-1 fazem
s: = s + formato (“%20: 20s”, [tabela. Fields.Fields [I]. Subtítulo
]);
s: = s + #13#10 + DupeString (“-”, 21*table. Fields.Count) + #13#10;
quando não tabela. O Eof faz
começar
para I: = 0 à tabela. Fields.Count-1 fazem
s: = s + formato (“%20: 20s”, [table.fields. Coloca [I] .AsString
]);
s: = s + #13#10;
tabela. Em seguida;
extremidade;
JclSimpleSendMail (strEmail
, '', strSubject, s);
extremidade;