Hi everyone I have implemented some mail sending functionality to send(Posted Sales Invoices) with custom email body, when I try to send multiple it send few of them and show message that enable to send email, If I try to debug it show them following error.
Please suggest a solution design change or code imporvement thanks
CLEARALL();
SMTPSetup.GET;
IF customer.GET(SalesHeaders."Sell-to Customer No." )THEN
customer.TESTFIELD("E-Mail");
CompanyInfo.GET();
WITH TempEmailItem DO BEGIN
"From Address" := SMTPSetup."User ID";
"Send to" := customer."E-Mail";
Subject := CompanyInfo.Name ' - Invoice ' SalesHeaders."No.";
GenerateEmailBody(SalesHeaders, EmailBody);
Body := EmailBody.Blob;
"Attachment File Path":= GenerateEmailAttachment(SalesHeader."No.");;
"Attachment Name" := 'Sales Invoice ' SalesHeader."No." '.pdf';
"Plaintext Formatted" := FALSE;
EXIT(Send(TRUE));
END;
