Skip to main content

Notifications

Small and medium business | Business Central, N...
Unanswered

How to sent multiple records at a time .

Posted on by 133

I have already done this for single record send mail .

can you please help to resolve it.

but when i apply loop for send more than one record it can't work below are the CodeUnit for  sent mail:-

Documentation()

OnRun()

SentMailtoCust(CustNo : Code[20])

SMTPSetup.GET;
IF Customer.FINDSET THEN
REPEAT
UNTIL(Customer.NEXT=0);
Customer.TESTFIELD("E-Mail");
SMTPMail.CreateMessage('',SMTPSetup."User ID",Customer."E-Mail",'Test1','',TRUE);
IF SalesPerson."E-Mail"<>'' THEN
SMTPMail.AddCC(SalesPerson."E-Mail");

SMTPMail.AppendBody('Dear Sir / Madam,');
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('Please find Pending Payments List.');
SMTPMail.AppendBody('<br><Br>');
SMTPMail.AppendBody('<table border="1">');
SMTPMail.AppendBody('<tr>');

SMTPMail.AppendBody('<th>Invoice No.</th>');
SMTPMail.AppendBody('<th>Invoice Date</th>');
SMTPMail.AppendBody('<th>Due Date</th>');
SMTPMail.AppendBody('<th>Invoice Amount</th>');
SMTPMail.AppendBody('<th>Balance Amount</th>');
SMTPMail.AppendBody('</tr>');
SalesPerson.GET(Customer."Salesperson Code");

CustLedgEntry.SETCURRENTKEY("Customer No.",Open,Positive,"Due Date","Currency Code");
CustLedgEntry.SETRANGE(CustLedgEntry."Customer No.",CustNo);
CustLedgEntry.SETRANGE(Open,TRUE);
CustLedgEntry.SETRANGE(CustLedgEntry."Document Type",CustLedgEntry."Document Type"::Invoice);
IF CustLedgEntry.FINDFIRST THEN
REPEAT

CustLedgEntry.CALCFIELDS("Amount (LCY)");
CustLedgEntry.CALCFIELDS("Remaining Amt. (LCY)");

SMTPMail.AppendBody('<tr>');
SMTPMail.AppendBody('<td>'+FORMAT(CustLedgEntry."Document No.")+'</td>');
SMTPMail.AppendBody('<td>'+FORMAT(CustLedgEntry."Posting Date")+'</td>');
SMTPMail.AppendBody('<td>'+FORMAT(CustLedgEntry."Due Date")+'</td>');
SMTPMail.AppendBody('<td>'+FORMAT(CustLedgEntry."Amount (LCY)")+'</td>');
SMTPMail.AppendBody('<td>'+FORMAT(CustLedgEntry."Remaining Amt. (LCY)")+'</td>');
SMTPMail.AppendBody('</tr>');

UNTIL(CustLedgEntry.NEXT=0);

SMTPMail.AppendBody('</table>');
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('Regards,');
SMTPMail.AppendBody('<br>');
SMTPMail.AppendBody('Ajay Pandey');
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('<HR>');
SMTPMail.AppendBody('This is a system generated mail. Please do not reply to this email ID.');

SMTPMail.Send;

SendTestMailtoCust(CNo : Code[20])
IF Cust.FINDSET THEN
REPEAT
UNTIL(Cust.NEXT=0);
SMTPSetup.GET;
SMTPMail.Send;

SendMailtoCustWithAttachment(CustNo : Code[20])
SMTPSetup.GET;
IF Customer.FINDSET THEN
REPEAT
UNTIL(Customer.NEXT=0);
Customer.TESTFIELD("E-Mail");
SalesPerson.GET(Customer."Salesperson Code");
IF SalesPerson."E-Mail" <> '' THEN

SMTPMail.AddCC(SalesPerson."E-Mail");

SMTPMail.AppendBody('Dear Sir / Madam,');
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('Please find Attached Sales Statistics.');
SMTPMail.AppendBody('<br><Br>');
SMTPMail.AppendBody('Regards,');
SMTPMail.AppendBody('<br>');
SMTPMail.AppendBody('Saurav Dhyani');
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('<HR>');
SMTPMail.AppendBody('This is a system generated mail. Please do not reply to this email ID.');

SMTPMail.Send;

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

December Spotlight Star - Muhammad Affan

Congratulations to a top community star!

Community AMA December 12th

Join us as we continue to demystify the Dynamics 365 Contact Center

New! Quick response templatesâš¡

Save time with the new custom templates!

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 291,228 Super User 2024 Season 2

#2
Martin Dráb Profile Picture

Martin Dráb 230,056 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans