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());
}
}
