Foros Club Delphi - como puedo hacer para enviar un quick report por email??

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

Código:



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.