mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 22:56:55 +01:00
17e8856b35
Contributed from Curabis's own BCQuality custom layer, rewritten to the community contribution contract (no fenced code in the .md, AL samples as sibling .good.al/.bad.al files, under 100 lines per article).
11 lines
367 B
AL
11 lines
367 B
AL
codeunit 50130 "Contoso Send Confirmation"
|
|
{
|
|
procedure SendOrderConfirmation(ToAddress: Text; Subject: Text; Body: Text)
|
|
var
|
|
EmailMessage: Codeunit "Email Message";
|
|
Email: Codeunit Email;
|
|
begin
|
|
EmailMessage.Create(ToAddress, Subject, Body, true);
|
|
Email.Send(EmailMessage, Enum::"Email Scenario"::"Sales Order");
|
|
end;
|
|
}
|