Send PDF as an attachment in Business Central

Var

TempBlob: Codeunit "Temp Blob";

EmailMessage: Codeunit "Email Message";

Email: Codeunit Email;

OutStream: OutStream;

InStream: InStream;

XmlParameters: Text;

Subject, Body, Receipient : Text;

XmlParameters := <Request page parameters>;

TempBlob.CreateOutStream(OutStream);

REPORT.SAVEAS(<Report ID>, XmlParameters, REPORTFORMAT::Pdf, OutStream);

TempBlob.CreateInStream(InStream);

EmailMessage.Create(Receipient, Subject, Body);

EmailMessage.SetBodyHTMLFormatted(true);

EmailMessage.AddAttachment('test.pdf', 'PDF', InStream);

Email.Send(EmailMessage, Enum::"Email Scenario"::Default);