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

17/01/2013

1

Estou criando uma agenda telefônica, e nessa agenda vou ter o controle das chamadas da empresa, sempre que for feita uma ligação vai aparecer os dados no canto dessa agenda (se foi uma chamada interna,ou se foi externa, ou ainda se foi de um Ramal para outro Ramal; o tempo da ligação; o numero dos ramais, ou telefones, entre outras informações.) e abaixo dessas informações deve ter um espaço para que seja feita uma observação a respeito de cada ligação. Por exemplo se eu ligar e a pessoa desejada não estiver, então eu deixo recado, e nesse espaço eu digito a observação que foi feita a ligação e foi deixado recado, e então eu clico em um botão e envio esta observação para os e-mails desejados (no caso o do meu chefe, e mais um ou dois se possível). Então eu tenho uma DBGrid com a lista de EMPRESAS CLIENTES, e do lado tenho alguns DBEdits nos quais aparecem as seguintes informações: Endereço, Bairro, Cep, Cidade, UF, e Atividade(comercial), abaixo dessas DBEdits e ainda ao lado do DBGrid, tenho um StringGrid, onde aparecem os contatos para ligações. Quando eu selecionar algum contato deve aparecer ao lado o histórico de ligações e abaixo no mesmo lugar que eu digitar as observações para enviar para o e-mail, também deve aparecer os que eu já digitei e enviei.

Só para lembrar a agenda esta pronta a parte do DBGrid dos DBEdits e o StringGrid, preciso apenas dessa parte do espaço onde digito e envio para o e-mail.

Agradeceria se alguém me ajudasse, talvez uma vídeo aula, ou algo do tipo.

E-mail: samuelzende@hotmail.com
Skype: samuelzende
Responder

Posts

17/01/2013

Bruno Leandro

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

http://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
Responder

18/01/2013

Samuel Silva

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?
Responder

18/01/2013

Bruno Leandro

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.
Responder

18/01/2013

Samuel Silva

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;
Responder

18/01/2013

Samuel Silva

Bruno, tem skype? me add ou me passa o seu, me passa seu e-mail tbm se puder.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira