Send Auto-Email when sales order posting a packing slip

By -

Today i am going to show you code how to send an auto-email through x++ code when the sales order posting a packing slip 

class DAL_SalesFormLetterClass_EventHandler

{

 

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

    public static void SalesFormLetter_Post_run(XppPrePostArgs args)

    {

     SalesFormLetter  SalesFormLetter = args.getThis() as SalesFormLetter ;

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

        ||  SalesFormLetter.documentStatus() == DocumentStatus::ProjectPackingSlip

        && !SalesFormLetter.proforma() )

        {

            custPackingSlipJour     custPackingSlipJour = SalesFormLetter.parmJournalRecord();

              if(custPackingSlipJour)

               this.sendMail_Sales_PackingSlip(custPackingSlipJour);

        }

    }


public void sendMail_Sales_PackingSlip(CustPackingSlipJour _CustPackingSLipJour)

    {

        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;

        SalesTable                            salesTableObj;

        str                                   subjectPart,bodyMessage;

        HcmWorkerName                         salesResponsible;

        ;

        select salesTableObj where salesTableObj.SalesId ==  _CustPackingSLipJour.SalesId;

        if(salesTableObj.WorkerSalesResponsible)

        {

       if(salesTableObj.ProjId && salesTableObj.SalesType == SalesType::ItemReq)

       {

       bodyMessage = strFmt('The items requested  vide  work order number %3 is issued through packing slip number %1 dated %2 ',_CustPackingSLipJour.PackingSlipId,_CustPackingSLipJour.DeliveryDate,salesTableObj.ProjId);

        subjectPart = "work order number -" + salesTableObj.ProjId;

       }

       else

       {

                if(salesTableObj.SalesId && salesTableObj.SalesType == SalesType::Sales )

                {

                    bodyMessage = strFmt('The items requested  vide sales order number %3 is issued  through packing slip number %1 dated %2 ',_CustPackingSLipJour.PackingSlipId,_CustPackingSLipJour.DeliveryDate,salesTableObj.SalesId);

                    subjectPart = "Sales order number -" + salesTableObj.SalesId;

                }

        }

            ToMailId = DALParameterTable::getUserEmail(salesTableObj.WorkerSalesResponsible);

            salesResponsible = HcmWorker::find(salesTableObj.WorkerSalesResponsible).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 issued 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