Como faço para enviar por e-mail(Outlook) um relatório QuickRep do delphi????
Tcorte
Curtidas 0
Respostas
Anonymous
04/04/2003
-Faça uma rotina que salve o relatório em formato texto, cfe abaixo:
[b:01b126d210]QuickReport.ExportToFilter(TQRAsciiExportFilter.Create(´c:\teste.doc´));[/b:01b126d210]
-Use a dica abaixo, do site www.elivaldo.com.br, para enviar pelo OutLook:
[b:01b126d210]uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
sEmail: string;
begin
sEmail := ´mailto:falecom@elivaldo.com.br´ +
´?Subject=Teste´ +
´&Body=Enviando email pelo Delphi´;
ShellExecute(Handle, ´open´, PChar(sEmail), nil, nil, SW_SHOW);
end;[/b:01b126d210]
-Mãos à obra!
[b:01b126d210]QuickReport.ExportToFilter(TQRAsciiExportFilter.Create(´c:\teste.doc´));[/b:01b126d210]
-Use a dica abaixo, do site www.elivaldo.com.br, para enviar pelo OutLook:
[b:01b126d210]uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
sEmail: string;
begin
sEmail := ´mailto:falecom@elivaldo.com.br´ +
´?Subject=Teste´ +
´&Body=Enviando email pelo Delphi´;
ShellExecute(Handle, ´open´, PChar(sEmail), nil, nil, SW_SHOW);
end;[/b:01b126d210]
-Mãos à obra!
GOSTEI 0