Setup Email SMTP in AX - Song Nghia - Microsoft Dynamics 365 Vietnam

Song Nghia - Microsoft Dynamics 365 Vietnam

Microsoft Dynamics AX/365 Outsourcing Service

Breaking

Friday, July 27, 2018

Setup Email SMTP in AX


Setup Email SMTP in AX 






This function is built to alternate Sysmailer class to avoid "error script 25"
//Try to read comment carefully to understand how this method works
static void sendEmail(container          _toAddressCon,
                      str                _mailSubject       = "",
                      str                _mailBody          = "",
                      container          _attachmentCon     = conNull(),
                      container          _ccAddressCon      = conNull(),
                      container          _bccAddressCon     = conNull(),
                      str                _fromAddress       = "ax-automail@scancom.net",//SysEmailParameters::find().SMTPUserName,
                      str                _SMTPServer        = "smtp.office365.com",//SysEmailParameters::find().SMTPRelayServerName,
                      int                _portNumber        = 587,//SysEmailParameters::find().SMTPPortNumber,
                      str                _userName          = "ax-automail@scancom.net",//SysEmailParameters::find().SMTPUserName, //should be a valid email address
                      str                _password          = "P@$$word")//SysEmailParameters::password())

{
    //Define current Live AOSs
    #define.LiveAOSId_01("VNBD-AOS-S01@2712")
    #define.LiveAOSId_02("VNBD-AOS-S02@2712")
    #define.LiveAOSId_03("VNBD-AOS-S03@2712")
    #define.LiveAOSId_04("VNBD-AXTEST-MP@2712")

    System.Net.Mail.MailMessage             mailMessage;

    System.Net.Mail.MailAddress             mailFrom;
    System.Net.Mail.MailAddress             mailTo;

    System.Net.Mail.MailAddressCollection   addressCollection_CC;
    System.Net.Mail.MailAddressCollection   addressCollection_BCC;

    System.Net.Mail.Attachment              attach;
    System.Net.Mail.AttachmentCollection    attachCollection;

    System.Net.Mail.SmtpClient              smtpClient;
    System.Net.NetworkCredential            networkCredential;
    str                                     toAddress_Single;
    str                                     toAddresses_All;
    int                                     i;
    AOSId                                   currentAOSId;
    FileIOPermission                        filePermission;
    boolean                                 hasAttachment;
    str                                     ccAddress, bccAddress;
    str                                     attachmentPath;
    int                                     noOfRecipient;

    //cnt email log
    SCA_ScancomParameters                   scancomParameters;
    SCA_EmailLog                            emailLog;
    str                                     attachmentPathEmail;
    str                                     ccAddress_All;
    str                                     bccAddress_All;
    //-end

    InteropPermission                       permission = new InteropPermission(InteropKind::ClrInterop);
    ;

    scancomParameters = SCA_ScancomParameters::find();
    permission.assert();

    //Temporary disable below code as user can not read AOS due to right limitation
    /*currentAOSId = conpeek(VtvUtil::getCurrentAOSInstance(), 1);

    //Only allow sending email if current environment is Live
    if ( !(currentAOSId == #LiveAOSId_01
        || currentAOSId == #LiveAOSId_02
        || currentAOSId == #LiveAOSId_03
        || currentAOSId == #LiveAOSId_04))
    {
        return;
    }*/


    if (!SysEmailDistributor::validateEmail(_userName))
        throw error("Invalid sender user name. Email sending cancelled!");

    if (conlen(_toAddressCon) == 0)
    {
        throw error("No recipient address to send!");
    }

    //Convert address container to string, seperated by comma
    //toAddresses = con2str(_toAddressCon, ","); // this code is more efficient but should not be used due to:
                                                 // + It does not remove duplicated email addresses
                                                 // + It does not validate single email address format

    //This code wil convert, validate & remove duplicated email address in container
    for (i =1; i <= conlen(_toAddressCon); i++)
    {
        toAddress_Single = conpeek(_toAddressCon, i);

        //Make sure every single recipient address is in correct format
        //if (!SysEmailDistributor::validateEmail(toAddress_Single))
        //     throw error(strfmt("Recipient address: %1 is invalid.", toAddress_Single));

        //Combine all single addresses into one address string, seperated by comma (,)
        if (toAddress_Single// && SysEmailDistributor::validateEmail(toAddress_Single)
            && !strScan(toAddresses_All, toAddress_Single, 1, strlen(toAddresses_All)))
        {
            toAddresses_All = toAddresses_All ? toAddresses_All + "," + toAddress_Single : toAddress_Single;
            noOfRecipient ++;
        }
    }

    try
    {
        smtpClient = new System.Net.Mail.SmtpClient(_SMTPServer, _portNumber);

        //if (noOfRecipient >= 10)
        smtpClient.set_Timeout(1000000); //lan.nguyen - must add to avoid 'Time out' error when send to > 10 recipient

        //Init mail message with sender & receipient
        mailMessage = new System.Net.Mail.MailMessage(_fromAddress, toAddresses_All);

        //Add CC address
        addressCollection_CC = mailMessage.get_CC(); //Note: Method name 'get_CC' is case sensitive

        for (i = 1; i <= conLen(_ccAddressCon); i++)
        {
            ccAddress = conPeek(_ccAddressCon,1);
            if (ccAddress)
            {
                addressCollection_CC.Add(ccAddress);
                 //cnt record email log
                ccAddress_All += ccAddress + ';';
                //cnt - end
            }
        }

        //Add BCC address
        addressCollection_BCC = mailMessage.get_Bcc(); //Note: Method name 'get_Bcc' is case sensitive

        for (i = 1; i <= conLen(_bccAddressCon); i++)
        {
            bccAddress = conPeek(_bccAddressCon,1);
            if (bccAddress)
            {
                addressCollection_BCC.Add(bccAddress);
                //cnt record email log
                bccAddress_All += bccAddress + ';';
                //cnt -end
            }
        }

        //Init mail subject & content
        mailMessage.set_IsBodyHtml(true);       //Enable HTML mail content
        mailMessage.set_Subject(_mailSubject);
        mailMessage.set_Body(_mailBody);

        //Add attachment if any
        for (i = 1; i <= conLen(_attachmentCon); i++)
        {
            attachmentPath = conPeek(_attachmentCon,i);
            if (attachmentPath != '' && WinAPI::fileExists(attachmentPath))
            {
                hasAttachment = true;
            }
        }

        if (hasAttachment)
        {
            for (i = 1; i <= conLen(_attachmentCon); i++)
            {
                attachmentPath = conPeek(_attachmentCon,i);

                //lan.nguyen - do not require permission
                //assert permision to make sure attach file is readable
                //filePermission = new FileIOPermission(attachmentPath, 'r');
                //filePermission.assert();

                attach = new System.Net.Mail.Attachment(attachmentPath);
                //attach.set_Name(VtvUtil::getFileName(_fileToAttach) + VtvUtil::getFileType(_fileToAttach)); //name to display file as in email

                attachCollection = mailMessage.get_Attachments();
                attachCollection.Add(attach);

                //cnt get all attachment path
                attachmentPathEmail += attachmentPath + ';';
                //cnt -end
            }
        }

        // For SSL enabled mail servers. Ex: gmail, smtp.gmail.com
        smtpClient.set_EnableSsl(true);

        networkCredential = new System.Net.NetworkCredential(_userName, _password);
        smtpClient.set_UseDefaultCredentials(false);
        smtpClient.set_Credentials(networkCredential);

        smtpClient.Send(mailMessage);
        mailMessage.Dispose();

        //release asserted permission
        if (hasAttachment && filePermission)
        {
            CodeAccessPermission::revertAssert();
        }

        //cnt - if scancomparameters is setup -- write to email log
        if (scancomParameters.TrackSendEmailLog == Noyes::Yes)
        {
            ttsbegin;
            emailLog.clear();
            emailLog.Subject        = _mailSubject;
            emailLog.EmailBody      = _mailBody;
            emailLog.Recipients     = toAddresses_All;
            emailLog.AttachmentPath = attachmentPathEmail;
            emailLog.NoOfRecepients = noOfRecipient;
            emailLog.CCRecipients   = ccAddress_All;
            emailLog.BCRecipients   = bccAddress_All;
            emailLog.insert();
            ttscommit;
        }

        //cnt -end
    }
    catch(Exception::CLRError)
    {
        throw error(CLRInterop::getLastException().ToString());
    }
}

No comments:

Post a Comment