Digitar e enviar informação direto para o e-mail

Ola Samuel, existem artigos aqui no site ensino a fazer o envio do email com o indy, um exemplo seria

https://www.devmedia.com.br/enviar-anexo-no-corpo-do-email-com-indy/2657

voce pode pesquisar no campo superior do site e colocar: enviar email indy
existem outros artigos, caso nao consiga criar o evento, fique a vontade para perguntar

Cara, me surgiu outra dúvida aqui, nesta agenda estou utilizando uma StringGrid, e não tenho conhecimentos com este componente, gostaria de saber como faço para editar a mask de duas colunas de telefone. Se possível alguém me disponibilizar o código e onde eu coloco este código eu agradeceria muito, se tiver um exemplo ajuda muito, pois sou meio "lerdo" kkkkkk.
Obrigado

uma das linha de telefone é essa:
sg.Cells[2,1] := DMPesquisa.cdsPessoaFONE_PRIM_PESSOA.AsString;


Um amigo me passou a seguinte linha de código:
FormatMaskText('!(99)9999-9999;0;', FieldByName('FONE_CONTATO_PESSOA').AsString)

Mas não sei onde e nem como colocá-la. Isso funciona?

Ola Samuel, voce pode utilizar o codigo do seu amigo da seguinte forma

sg.Cells[2,1] := FormatMaskText('!(99)9999-9999;0;', FieldByName('FONE_CONTATO_PESSOA').AsString);

você já atribui o valor formatado para a celular da sua stringgrid.

Bruno muito obrigado pela ajuda, mas só mais uma dúvida, onde eu coloco isso?

Minha StringGrid está da seguinte forma:

procedure TfrmAgenda.dtsPessoaDataChange(Sender: TObject; Field: TField);
begin
sg.Cells[0,1] := DMPesquisa.cdsPessoaNOME_CONTATO_PESSOA.AsString;
sg.Cells[1,1] := DMPesquisa.cdsPessoaDEPTO_CONTATO_PESSOA.AsString;
sg.Cells[2,1] := DMPesquisa.cdsPessoaFONE_PRIM_PESSOA.AsString;
sg.Cells[3,1] := DMPesquisa.cdsPessoaFONE_SEC_PESSOA.AsString;
sg.Cells[4,1] := DMPesquisa.cdsPessoaEMAIL_CONTATO_PESSOA.AsString;

sg.Cells[0,2] := DMPesquisa.cdsPessoaNOME_CONTATO_ENT_PESSOA.AsString;
sg.Cells[1,2] := DMPesquisa.cdsPessoaDEPTO_CONTATO_ENT_ENTREGA.AsString;
sg.Cells[2,2] := DMPesquisa.cdsPessoaFONE_CONTATO_ENT_PESSOA.AsString;
sg.Cells[3,2] := DMPesquisa.cdsPessoaFAX_CONTATO_ENT_PESSOA.AsString;
sg.Cells[4,2] := DMPesquisa.cdsPessoaEMAIL_CONTATO_ENT_PESSOA.AsString;

sg.Cells[0,3] := DMPesquisa.cdsPessoaNOME_CONTATO_FAT_PESSOA.AsString;
sg.Cells[1,3] := DMPesquisa.cdsPessoaDEPTO_CONTATO_FAT_ENTREGA.AsString;
sg.Cells[2,3] := DMPesquisa.cdsPessoaFONE_CONTATO_FAT_PESSOA.AsString;
sg.Cells[3,3] := DMPesquisa.cdsPessoaFAX_CONTATO_FAT_PESSOA.AsString;
sg.Cells[4,3] := DMPesquisa.cdsPessoaEMAIL_CONTATO_FAT_PESSOA.AsString;

end;


procedure TfrmAgenda.FormShow(Sender: TObject);
begin
DMPesquisa.cdsPessoa.Open;

//formatando o stringgrid
{Quantidade de colunas e linhas}
sg.ColCount := 5;
sg.RowCount := 4;
{ Primeiro é a coluna, depois a linha }
sg.Cells [0,0] := 'Contato';
sg.Cells [1,0] := 'Departamento';
sg.Cells [2,0] := 'Telefone1';
sg.Cells [3,0] := 'Telefone2';
sg.Cells [4,0] := 'E-mail';
{ comprimento em pixels das colunas }
sg.ColWidths [0] := 90;
sg.ColWidths [1] := 90;
sg.ColWidths [2] := 75;
sg.ColWidths [3] := 75;
sg.ColWidths [4] := 200;
{ Altura de cada célula }
sg.DefaultRowHeight := 15;

end;

Bruno, tem skype? me add ou me passa o seu, me passa seu e-mail tbm se puder.