automatizacion Rave Report

[Loviedo]

A lo mejor esto te puede ayudar:

Código Delphi [-]

// crear PDF
procedure TForm1.Button1Click(Sender: TObject);
var
  NDRStream:  TMemoryStream;
begin
  NDRStream := TMemoryStream.Create;
  RvProject1.open;
  RvProject1.SelectReport('Presupuesto',true);
  RvProject1.SaveToStream(NDRStream);
  RvNDRWriter1.Stream:=NDRStream;
  RvProject1.Execute;
  RvRenderPrinter1.Render(NDRStream);
  RvProject1.close;
  try
    RvRenderPDF1.PrintRender(NDRStream,'C:\Temp\Pba.pdf');
  except
    NDRStream.Free;
  end;


// Con los componentes Indy enviar correo

  if not FileExists('C:\Temp\Pba.pdf') then
    exit;
  SMTP.Host := mHost;
  SMTP.Port := strtoint(mPuerto);
  SMTP.username := mUsuario;
  SMTP.password := mPassword;

  MailMessage.Clear;
  MailMessage.From.Address := mEmail;
  MailMessage.From.Name := mNombre;
  MailMessage.Recipients.EMailAddresses := '[email protected]'; {destino}
  MailMessage.BCCList.add.Address := mEmail;
  MailMessage.Subject := mAsunto;
  MailMessage.Body.Text := mTexto;

  TIdAttachment.Create(MailMessage.MessageParts,'C:\Temp\Pba.pdf');

  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except
      showmessage('Fallo en el Envío de Correo');
      exit;
    end;
  finally
    if SMTP.Connected then
      SMTP.Disconnect;
  end;

// si lo desea DeleteFile('C:\Temp\Pba.pdf');
// Si busca en el foro,  hay información  sobre el tema 
end;

Saludos.