281
Dear Members,
I would like to know how to make an attachment along with an email. For example, I would like to send aged accounts payable report once it is generated.
Please provide me an appropriate solution.
Thanks and Regards,
Saravanan M
Hi, hope the following helps.
Table ‘SMTP Mail Setup’ and Codeunit ‘SMTP Mail’ is marked for removal Tag: 17.0
Thanks.
ZHU
Dear YUN ZHU,
Thank you so much for your reply. We followed one of your blog to meet our requirement. Unfortunately we are not able to meet our exact requirement as in Business Central the SMTP Mail setup(Record 409) and SMTP Mail (codeunit 400) had been removed and replaced by Email Message (replaces SMTP Mail) and Email Accounts (replaces SMTP Mail setup).
We are getting stuck at this point. Please let us know an alternative solution to meet our requirement.
The Blog which we followed earlier: https://yzhums.com/1799/
Thanks in Advance,
M Saravanan
Hi, You can try out the following latest new feature.
Use default attachments in email sent from Dynamics 365 Business Central
Extend Email Capabilities:
https://redandbundle.com/2022/04/19/create-a-custom-email-scenario-for-business-central/
Hope this helps as well.
Thanks.
ZHU
Hello M Saravanan,
Please find the below code that will help you how to create mail and attached report.
procedure SendPaperStatementMail(Var Rec_AccountNumber: Text)
var
email: Codeunit Email;
emailMsg: Codeunit "Email Message";
tempblobcu: Codeunit "Temp Blob";
cnv64: Codeunit "Base64 Convert";
InStr: InStream;
txtB64: Text;
Text001: Text;
RecRef: RecordRef;
Outstreamreport: OutStream;
LoanStatement: Report "Loan Statement Report";
LoanHeader: Record Ecl_LoanHeader;
char13: Char;
char10: Char;
NewLine: Text;
cominfo: Record "Company Information";
custrec: Record customer;
SalesRec: Record "Sales & Receivables Setup";
begin
cominfo.Get();
SalesRec.Get();
LoanHeader.Reset();
LoanHeader.SetRange(AccountNumber, Rec_AccountNumber);
IF LoanHeader.FindFirst() then
if SalesRec.PaperStatementEmail <> '' then
if custrec.get(LoanHeader."Customer No.") then
if custrec.ecl_SendPaperStatement then
if (LoanHeader."Statement Date" <> 0D) or (LoanHeader."Statement No" <> 0) then begin
RecRef.GetTable(LoanHeader);
tempblobcu.CreateOutStream(Outstreamreport);
Report.SaveAs(50191, 'Test', ReportFormat::Pdf, Outstreamreport, RecRef);
char13 := 13;
char10 := 10;
NewLine := char10;
Text001 := StrSubstNo('Dear %1,', LoanHeader.name);
Text001 += NewLine + NewLine;
Text001 += StrSubstNo('Please find attached your monthly statement for your ggg Account %1 which has a current balance of $%2.', LoanHeader.AccountNumber, format(ROUND(LoanHeader.LastClosingBalance, 0.01, '='), 0, '<Precision,2:2><Standard Format,0>'));
Text001 += NewLine + NewLine;
Text001 += StrSubstNo('The minimum payment required for this month is $%1 and it is due on %2.', format(ROUND(LoanHeader.Minimum_Payment, 0.01, '=') + LoanHeader.Total_Arrears, 0, '<Precision,2:2><Standard Format,0>'), Format(LoanHeader.NextDueDate, 0, '<Day,2>/<Month,2>/<Year4>'));
Text001 += NewLine + NewLine;
Text001 += StrSubstNo('Please contact us on %1 if you have any questions or would like to speak to us about your account.', cominfo."Phone No. 2");
Text001 += NewLine + NewLine;
Text001 += NewLine + NewLine;
Text001 += 'Sincerely';
Text001 += NewLine + NewLine;
Text001 += 'The ggTeam' + NewLine;
Text001 += cominfo."Home Page" + NewLine;
text001 += cominfo."Phone No. 2";
tempblobcu.CreateInStream(InStr);
txtB64 := cnv64.ToBase64(InStr, true);
emailMsg.Create(SalesRec.PaperStatementEmail, StrSubstNo('Paper Statement for the Loan Account No. %1', LoanHeader.AccountNumber), Text001);
emailMsg.AddAttachment('Statement for ' + LoanHeader.name + ' as of ' + Format(LoanHeader."Statement Date", 0, '<Day,2>-<Month,2>-<Year>') + '.pdf', 'application/pdf', txtB64);
IF email.Send(emailMsg) then;
end;
end;
Hi,
You can try below
|
TempBlob.CreateInStream(EmailInStream, TextEncoding::UTF8); EmailMessage.Create('To email id', 'your subject', 'email body'); |
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,280
Super User 2024 Season 2
#2
Martin Dráb
230,214
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (