Fórum Relatórios... #154499

é meio idiota o q vou responder, mas coloque um campo a mais na sua tabela, falando se é e-mail ou correio, e coloque isso no relatorio, se foi isso que intendi, mas se nao foi, faça o seguinte:
coloque o tal campo e os que forem e-mail, voce poe na rotina para ir por e-mail e os que nao forem, mande imprimir, assim:
if not fieldbyname(´campo´).value = ´e-mail then
quickreport1.print
else
(mande o e-mail)

espero ter ajudado, mande uma resposta se tiver, para davicdc@coltec.ufmg.br

o que eu queria saber, qdo o relatório não for impresso, que é qdo o cliente precisa por e-mail, como eu mando o relatório ´por e-mail.

Socorro!!!

O primeiro passo é converter o relatorio, com o seguinte codigo:
QuickReport.ExportToFilter(TQRAsciiExportFilter.Create(´c:\relatorio.doc´));

depois, coloque um memo no form e coloque o seguinte codigo abaixo do codigo acima:
memo.loadfromfile(´c:\relatorio.doc´);

{ Seu servidor SMTP }
NMSMTP1.Host := ´smtp.servidor.com.br´;

{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;

{ Nome de login do usuário }
NMSMTP1.UserID := ´MeuLogin´;

{ Conecta ao servidor }
NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);

with NMSMTP1.PostMessage do begin
{ Seu e-mail }
FromAddress := ´meuemail@meuserver.com.br´;

{ Seu nome }
FromName := ´Meu Nome´;

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);

{ Assunto da mensagem }
Subject := ´Assunto da mensagem´;

{ Corpo da mensagem }
Body.Clear;
Body.Add(memo.lines.text);


{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;
end;


é isso, qualquer coisa, manda um e-mail para davicdc@coltec.ufmg.br
conte comigo.