AL - Change email body

(0) Share

Report

Posted on by Diego91

Hi Everyone,

I try to send an email with an attached document, this code works very well, but I need to write a specific text for each email, for now the body arrives empty, does anyone know how to modify it?
thank you so much

//My code

var

SalesInvoiceHeader: record "Sales Invoice Header";

DocumentSendingProfile: Record "Document Sending Profile";

DummyReportSelections: Record "Report Selections";

Text2: text;

SalesInvoiceHeader.RESET();

SalesInvoiceHeader.SetRange("No.", "No.");

if SalesInvoiceHeader.FindSet() THEN begin

DocumentSendingProfile.TrySendToEMail(

DummyReportSelections.Usage::"S.Invoice".AsInteger(), SalesInvoiceHeader, 100, Text2,

4, false);

exit;

end;

All responses (4)

Answers (1)

Diego91 25 on at

Like (0)

Report

RE: AL - Change email body

Hello Tech, I solved it in another way using a temporary table before sending the mail, and adding a procedure inside the event subscription, I have solved the problem, thank you very much for your help

greetings
Suggested answer

Tech-Lucky 796 on at

Like (0)

Report

RE: AL - Change email body

for that, you need to customize it more , you can subscribe OnBeforeSendEmail event as shown in the below image and exit the standard code it has the PostedDoc No as a parameter you can use it and re-write the Standard code on your custom code for further process then you can directly modify the body as well without subscribing the previous event that I told you.

this is the Function EmailFileInternal in Codeunit "Document-Mailing" You can explore more for a much better solution I just explained one of the possibilities.
Diego91 25 on at

Like (0)

Report

RE: AL - Change email body

Hi tech, thanks, this works, but I need to add details of the Sales Invoice Header record to the body of the email. I don't see in that event that I receive the record as a parameter. Do you know how I can map it from the subscription?

thank you so much
Verified answer

Tech-Lucky 796 on at

Like (0)

Report
RE: AL - Change email body

You need to use the Event to modify the Email Body as bellow :

[EventSubscriber(ObjectType::Table, database::"Email Item", 'OnBeforeGetBodyText', '', false, false)] local procedure OnBeforeGetBodyText(var EmailItem: Record "Email Item"; var Value: Text; var IsHandled: Boolean) begin IsHandled := true; //Write your custom email Body here value := 'Please Find the attched Invoice'; // this is just an example end;

But I tried your code and that does not send the email with the empty body the default body is quite good you can see the screenshot :

after using the event I modified the body and received the mail as bellow :

I hope this helps you if YES please verify this answer