como puedo hacer para enviar un quick report por email??

[merlin]

Hola magos de la programación, bueno mi pregunta es la siguiente:

Se puede enviar por e-mail (me da igual de la forma q sea), una pagina de un quick report?

[marcoszorrilla]

Si se puede, utilizando el componente TNMSMTP, aquí tienes un ejemplo, los datos se toman de unos Edits en donde capturamos todo lo necesario.

procedure TForm1.Button1Click(Sender: TObject);
var
  ExpFilter: TQRHTMLDocumentFilter;
begin
  Form2 := TForm2.Create(nil);
  try
    ExpFilter := TQRHTMLDocumentFilter.Create('report.htm');
    try
      {Save to HTML}
      Form2.Table1.Open;
      Form2.QuickRep1.ExportToFilter(ExpFilter);
      with SMTP do
        begin
          Host := HostEdit.Text;
          UserID := USerEdit.Text;
          PostMessage.ToAddress.Add(ToEmailEdit.Text);
          PostMessage.FromAddress := FromEmailEdit.Text;
          PostMessage.FromName := FromNameEdit.Text;
          PostMessage.Body.Assign(BodyMemo.Lines);
          PostMessage.Subject := SubjectEdit.Text;
          PostMessage.Attachments.Add('report.htm');
          Connect;
          SendMail;
          Disconnect;
        end;
      {Delete the finished HTML file}
      DeleteFile('report.htm');
    finally
      ExpFilter.Free;
    end;
  finally
    Form2.Free;
  end;
end;

Un Saludo.