Fórum E-mail #152171

-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!