Share
Report
289Using BC 365 SaaS v23.5. I've run across a few threads along these lines, and have tried to incorporate the AL code to no avail. The idea is I have added a custom action to a list page for e-mailing out a specifc custom report I have created. If I leave out the file attachment portion of my code then the e-mail sends out fine. Any suggestions? I'll paste my AL source code, along with a screen shot of the error message that occurs when I include the PDF file attachment.
trigger OnAction()
var
TxtDefaultCCMailList: List of [Text];
TxtDefaultBCCMailList: List of [Text];
TxtRecipientsList: List of [Text];
AttachmentTempBlob: Codeunit /Temp Blob/;
AttachmentInStream: InStream;
AttachmentOutStream: OutStream;
FileMgt: Codeunit /File Management/;
SalesInvoiceHdr: Record /Sales Invoice Header/;
RecRef: RecordRef;
begin
GetSalespersonEmail();
GetCustomerEmail();
if (SalespersonEmail <> '') and (CustomerEmail <> '') then begin
TxtRecipientsList.Add(CustomerEmail);
TxtDefaultCCMailList.Add(SalespersonEmail);
EmailMsg.Create(TxtRecipientsList, 'Thank you for your purchase!', 'Attached is your receipt. Please keep for your records.', false, TxtDefaultCCMailList, TxtDefaultBCCMailList);
AttachmentTempBlob.CreateOutStream(AttachmentOutStream);
SalesInvoiceHdr.Reset();
SalesInvoiceHdr.SetFilter(/No./, '=%1', Rec./Invoice Document No./);
if SalesInvoiceHdr.FindFirst() then begin
RecRef.GetTable(SalesInvoiceHdr);
Report.SaveAs(Report::/DCH Sales Invoice Report/, '', ReportFormat::Pdf, AttachmentOutStream, RecRef);
AttachmentTempBlob.CreateInStream(AttachmentInStream);
EmailMsg.AddAttachment(Rec./Invoice Document No./ + '.pdf', 'PDF', AttachmentInStream);
EmailObj.Send(EmailMsg, Enum::/Email Scenario/::Default);
Message('Message sent!');
end;
end;
end;
var
EmailObj: Codeunit Email;
EmailMsg: Codeunit /Email Message/;
SalespersonEmail: Text[80];
CustomerEmail: Text[80];
All responses (
Answers (
