enviar um e-mail de um orçamento

Delphi

10/04/2004

gostaria de saber como faço para enviar um orçamento por e-mail sendo que a tela de orçamento envolve quatro tabelas orçamento, itensorc, clientes, formpag.
estou usando o cliente data set

gostaria de usar o outlook express, qdo clicar no botao enviar orçamento o sistema abrir a tela de enviar menssagens do outlook com o orçamento já anexado.

se alguém puder me ajudar agradeço,,,,,um abraço.


Rogsystem

Rogsystem

Curtidas 0

Respostas

Marcelo

Marcelo

10/04/2004

Olha cara.. pq vc num cria uma funcao que irá cria o orcamento em formato HTML. Daí entao eh so vc enviar por e-mail o proprio codigo html!

Se precisar de ajuda eh so falar!!!


GOSTEI 0
Rogsystem

Rogsystem

10/04/2004

vou precisar de ajuda sim
eu não sei como exportar os dados do orçamento para o html
se vc puder me dar uma dica agradeço!!!


GOSTEI 0
Marcelo

Marcelo

10/04/2004

Colega, no caso de gerar um relatorio personalizado, você terá que fazer uma função( na unha ) que lhe retorna, no mínimo, a tabela montada!

Por exemplo:

function GetHTML( Dados: TDataSet, Titulo : String ): String;
var
 HTML : String;
 i : Integer;
begin
  HTML := ´<html><title>´ + Titulo + ´</title><body><table><tr>´;
  for i := 1 to Dados.Count - 1 do  // atribui o titulo dos campos
    HTML := HTML + ´<td>´ +  Dados.DataFields[i].DisplayName + ´</td>´;
  Tabela.Firsh;
  while not Tabela.Eof do  // atribui os dados da query
    begin
      HTML := HTML + ´<td>´ +  Dados.DataFields[i].DisplayText+ ´</td>´;
      Tabela.Next;
    end;
  HTML := HTML + ´</tr></table></body><html>´;
  Result := HTML;
end;

[b:c83c181ef5]Obs.:[/b:c83c181ef5] Caso tenha algum erro de sintaxe no código acima, me desculpe, pois não o testei antes de postar. Mas a idea é essa mesmo!

Para que esse codigo tenha uma funcionalidade melhor, o viável seria que fizesse um filtro em uma query e enviasse-a para a função! O retorno seria um codigo html formatado com os campos selecionados! Apos isso voce pode salvar-lo como ´nome.htm´ e exibi-lo no browse!

No seu caso, pode enviar o codigo por email mesmo! Caso não tenha um programa para fazê-lo, pode entrar em contato comigo, que tenho o software ideal pra vc!

Valeu?


GOSTEI 0
Marcelo

Marcelo

10/04/2004

Uma pequena correção no código:
function GetHTML( Dados: TDataSet, Titulo : String ): String; 
var 
HTML : String; 
i : Integer; 
begin 
  HTML := ´<html><title>´ + Titulo + ´</title><body><table><tr>´; 
  for i := 1 to Dados.Count - 1 do  // atribui o titulo dos campos 
    HTML := HTML + ´<td>´ +  Dados.DataFields[i].DisplayName + ´</td>´; 
  HTML := HTML + ´</tr>´;  // atribui a quebra de linha
  Tabela.Firsh;
  while not Tabela.Eof do  // atribui os dados da query
    begin
      HTML := HTML + ´<tr>´;  // atribui a quebra de linha
      for i := 1 to Dados.Count - 1 do
        HTML := HTML + ´<td>´ +  Dados.DataFields[i].DisplayText+ ´</td>´; 
      HTML := HTML + ´</tr>´;  // atribui a quebra de linha
      Tabela.Next; 
    end; 
  HTML := HTML + ´</table></body><html>´; 
  Result := HTML; 
end;


Agora acho que melhorou!


GOSTEI 0
POSTAR