Pergunta : Índice de DBGrid no email

Olá!, o

I tem uma série de dados com dados em meu formulário criou a seguinte maneira: o
->a DBGrid1 no myform com jogo da origem de dados da propriedade a DataSource1.
->a DataSource1 com jogo da série de dados da propriedade ClientDataset1 ao
->a ClientDataSet com jogo de ProviderName da propriedade a XMLTransformProvider1.
e o Ative da propriedade a True.
->a XMLTransformProvider1 com o jogo do nome de arquivo da propriedade a um xml-filename.
->and um DBNavigator com o jogo da origem de dados do propery a DataSource1.
->and eu ajustei as 3 colunas: “descolamento”, “TM” e (dt=date, tm=time, e val=value)
como campos do persistend no DBGrid. o

Now eu fiz uma tecla que abrisse um cliente de email padrão. Que eu tenho o put
in a código-seção. Mas eu preciso o índice dos dbgrid copiado ao corpo-section
of o email. Quem sabe que a resposta e é disposta me ajudar?

Greetings, Peter Kiers
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
>procedure notpretty TMainForm.Button1Click " do class= " do id= " codeSnippet757752 do
           
class= do

Resposta : Índice de DBGrid no email

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;
Outras soluções  
 
programming4us programming4us