Send Auto-Email when purchase order posting a product receipt

By -

Today i am going to show you code how to send an auto-email through x++ code when the purchase order posting a product receipt

 class DAL_PurchFormLetterClass_EventHandler

{

    /// <summary>

    ///

    /// </summary>

    /// <param name="args"></param>

    [PostHandlerFor(classStr(PurchFormLetter), methodStr(PurchFormLetter, run))]

    public static void PurchFormLetter_Post_run(XppPrePostArgs args)

    {

        PurchFormLetter PurchFormLetter     =     args.getThis() as PurchFormLetter ;

        VendPackingSlipJour     vendPackingSlipJour;

        PurchTable  PurchTable = PurchFormLetter.purchTable();

        if(PurchFormLetter.documentStatus() == DocumentStatus::PackingSlip

              && !PurchFormLetter.proforma())

        {

            vendPackingSlipJour = PurchFormLetter.parmJournalRecord();

            this.sendMail_ProductReceipt(vendPackingSlipJour);

        }

    }


public void sendMail_ProductReceipt(VendPackingSlipJour _vendPackingSLipJour)

    {

        Set                                   permSet;

        FileName                              filename,localfilename;

        SRSPrintDestinationSettings           printerSettings;

        Array                                 arrayFiles;

        System.Byte[]                         reportBytes = new System.Byte[0]();

        SRSProxy                              srsProxy;

        SRSReportRunService                   srsReportRunService = new SrsReportRunService();

        Microsoft.Dynamics.AX.Framework.Reporting.Shared.ReportingService.ParameterValue[]  parameterValueArray;

        Map                                   reportParametersMap;

        SRSReportExecutionInfo                executionInfo = new SRSReportExecutionInfo();

        int                                   tryagain;

        str                                   email;

        Notes                                 content;

        MenuFunction                          mf;

        FormRun                               formrun;

        Args                                  _args;

        EmailBase                             ToMailId;

        PurchTable                            purchTableObj;

        str                                   subjectPart,bodyMessage;

        HcmWorkerName                         salesResponsible;

        ;

        select purchTableObj where purchTableObj.PurchId ==  _vendPackingSLipJour.PurchId;

         if(purchTableObj.DALWorkerSalesResponsible)

        {

             if(purchTableObj.DALWorkOrderNum)

            {

                bodyMessage = strFmt('The items ordered vide work order number %3  is received through  product receipt number %1 dated %2 .',_vendPackingSLipJour.PackingSlipId,_vendPackingSLipJour.DeliveryDate,purchTableObj.DALWorkOrderNum);

                subjectPart = "work order number -" + purchTableObj.DALWorkOrderNum;

            }

            else

            {

                if(purchTableObj.DALSalesId)

                {

                    bodyMessage = strFmt('The items ordered vide sales order number %3  is received through  product receipt number %1 dated %2 .',_vendPackingSLipJour.PackingSlipId,_vendPackingSLipJour.DeliveryDate,purchTableObj.DALSalesId);

                    subjectPart = "Sales order number -" + purchTableObj.DALSalesId;

                }

            }

            ToMailId = DALParameterTable::getUserEmail(purchTableObj.DALWorkerSalesResponsible);

            salesResponsible = HcmWorker::find(purchTableObj.DALWorkerSalesResponsible).name();

            System.IO.Stream workbookStream = new System.IO.MemoryStream();

            SysMailerSMTP           mailer = new SysMailerSMTP();

            SysMailerMessageBuilder builder = new SysMailerMessageBuilder();

            SysEmailParameters      parameters = SysEmailParameters::find();

            

            if (parameters.SMTPRelayServerName)

            {

                mailer.SMTPRelayServer(parameters.SMTPRelayServerName,

                                       parameters.SMTPPortNumber,

                                       parameters.SMTPUserName,

                                       SysEmailParameters::password(),

                                       parameters.SMTPUseNTLM);

            }

            else

            {

                warning("@ApplicationFoundation:EmailProviderSMTPServerNotFound");

            }

             content ="";

            content = content + strfmt("\n<p dir=ltr align=left><font size='2' face='arial'>Dear %1, </font></p> ",salesResponsible);

            content =  content + strfmt('\n<p dir=ltr align=left>                   </p>');

            content =  content + strfmt('\n<p dir=ltr align=left>                     </p>');

            content = content + strfmt("\n<p dir=ltr align=left><font size='2' face='arial'> %1 </font></p> ",bodyMessage);   

            content =  content + strfmt('\n<p dir=ltr align=left></p>');

            content =  content + strfmt('\n<p dir=ltr align=left></p>');

            content =  content + strfmt('\n<p dir=ltr align=left>             </p>');

            content =  content + strfmt('\n<p dir=ltr align=left>             </p>');

 

            content =  content + strfmt('\n<p dir=ltr align=left>             </p>');

            content = content + strfmt("\n<p dir=ltr align=left><font size='2' face='arial'>Thanks & Regards,</font></p> ");

            content = content + strfmt("\n<p dir=ltr align=left><font size='2' face='arial'> Procurement Team</font></p> ");

            content =  content + strfmt('\n<p dir=ltr align=left></p>');

            content =  content + strfmt('\n<p dir=ltr align=left>              </p>');

            content = content + strfmt("\n<p dir=ltr align=left> <B><font size='2' face='arial'>This email was sent by an automated system. Please do not reply to this message.</font></B></p> ");

                   

            sleep(5000);     //Wait 5 seconds for network file write

            tryagain = 0;

 

          

            builder.setFrom(parameters.SMTPUserName);

            builder.addTo(ToMailId);

           

            builder.setSubject(strfmt("Items received for %1",subjectPart));

            builder.setBody(content);         SysMailerFactory::getNonInteractiveMailer().sendNonInteractive(builder.getMessage());         

        }

    }

}

Output:



 

}


I'm a technical developer that has been doing Microsoft Dynamics 365 development since 2018

Comments

Post a Comment

Popular posts from this blog

SSRS Report using Controller , Contract and RDP classes in D365

By -
Image
STEP 1 : Create new TEMP table STEP 2 : Create query. STEP 3 : Create a Contract class [DataContractAttribute] class SMJ_PerdiemContract {     PerdiemStatus    perdiemstatus;     [DataMemberAttribute(identifierStr(PerdiemStatus)),         SysOperationLabelAttribute ("Perdiem status"),         SysOperationHelpTextAttribute("Perdiem status"),         SysOperationDisplayOrderAttribute("1")]         public PerdiemStatus parmPerdiemStatus(PerdiemStatus _PerdiemStatus = perdiemstatus)     {         perdiemstatus = _PerdiemStatus;         return perdiemstatus;     } } STEP 4 : Create a DP class: [SRSReportQueryAttribute(queryStr(SMJ_PerdiemReport)), // query  SRSReportParameterAttribute(classStr(SMJ_PerdiemContract))]// contract class     public class SMJ_PerdiemDP extends SRSReportDat...
Read more

Exporting data to Excel through X++ code

By -
             Sometimes we need to export data from Microsoft Dynamics 365 to Excel using x++ code. Through this post can see how to export data from form to excel class SMJ_ExportData {     public static void main( Args args)     {         PurchParmLine   PurchParmLine,PurchParmLineSelect;         PurchParmLine = args.record();         DocuFileSaveResult saveResult = DocuFileSave ::promptForSaveLocation( "@ApplicationPlatform:Testingexcelexport ", "xlsx" , null , "Testing excel export" );         if (saveResult && saveResult.parmAction() != DocuFileSaveAction ::Cancel)         {             saveResult.parmOpenParameters( 'web=1' );   ...
Read more

COC for Form level method

By -
We can extend the logic of public and protected methods without having to use event handlers. COC, allows to use the method local and global variables. COC must be end with _Extension. Form level method : System search there are any extend methods , If Extend method is exist,run COC method first , next() method Invoke Standard form methods . Override Method: [ ExtensionOf ( formstr ( CustTable ))]     final class CustTableForm_Extension     {         public void init()         {             // here add the business logics             next init();             // here add the business logics         }     } Get buffers : FormRun...
Read more

How to pass the parameter from one form to another in Dynamic365

By -
1. Create two forms with Name FormA & FormB   2. Below code is override in clicked method() of button. void  clicked() {      // Args class is usually used in Axapta for passing parameters between forms      Args             args;      FormRun          formRun;     ;     args =  new   args ();      // Our values which we want to pass to FormB      // If we want pass just simple string we can use 'parm' method of 'Args' class like     args.parm(  LeaveRequestID.text() );      // If we want pass whole record we can use 'parm' method of 'Args' class        args.record(TableName);      // Run FormB     args.name(  formstr ( FormB...
Read more

Multi Select Lookup in SSRS Report in D365

By -
Multi Select Lookup in SSRS Report in D365 Description:-  Here we will create multi select lookup in ssrs report so we can select multiple data from lookup. Here I have given sample demonstration for how to generate multi select lookup in ssrs report. First, you must create contract class for that and create method for parameters. Contract Class: - [DataContractAttribute, SysOperationContractProcessingAttribute( classstr (SampleUIBuilder))] class SampleContract implements SysOperationValidatable {     List   ListItemId; [DataMemberAttribute( "Item Id" ),AifCollectionTypeAttribute( "Item Id" , Types ::String),        SysOperationLabelAttribute( literalStr ( "Item Id" ))]        public List parmItemId( List _ListItemId = ListItemId) {               ListItemId = _ListItemId;         ...
Read more