Explore Dynamics World With Aslam: Email techniques in AX 5.0

In this article, I am going to demonstrate different email techniques that can be used in AX 4.0. Following classes can be used to send an email

Configure the SMTP server

http://www.vsysad.com/2014/01/configure-iis-smtp-server-to-use-gmail-to-forward-messages/

http://gaurangpatel.net/setting-up-smtp-server-in-windows-to-use-gmail

https://fmuntean.wordpress.com/2008/10/26/how-to-configure-iis-smtp-server-to-forward-emails-using-a-gmail-account/

http://www.blackbaudknowhow.com/tech-tips/how-to-install-and-configure-smtp.htm

Mapi and its related classes
SysMailer
SysInetMail
SysEmailBatch
SmmOutlookEmail

SysEmailBatch:

SysEmailBatch internally uses SysMailer class and is used to send emails in batch. That is this class is batchable. Here is a small example for the class

static void emailThruSysEmailBatch(Args _args)
{
SysEmailBatch batch = new SysEmailBatch();
;

batch.parmSenderAddr("aslam.p@XYS.net");
batch.parmEmailAddr("aslam.p@p@XYS.net");
batch.parmMessageBody("Hi There");
batch.parmSubject("Test mail");
batch.run();
info('Done');

}

SysMailer:
In the following code you can see how to use SysMailer class for sending mails. To use SysMailer class you need to set Relay server or computer name, user name and password in Administration –> Setup –> Email parameters form. This class internally uses CDO.Message dll for communication purposes. Please note in AX 3.0 SysMailer uses Dundas.Mailer dll for communication.

static void emailThruSysMailer(Args _args)
{
SysMailer mailer = new SysMailer();
SysEmailParameters parameters = SysEmailParameters::find();
;

if (parameters.SMTPRelayServerName)
{
mailer.SMTPRelayServer(parameters.SMTPRelayServerName,
parameters.SMTPPortNumber,
parameters.SMTPUserName,
SysEmailParameters::password(),
parameters.NTLM);
}
else
{
mailer.SMTPRelayServer(parameters.SMTPServerIPAddress,
parameters.SMTPPortNumber,
parameters.SMTPUserName,
SysEmailParameters::password(),
parameters.NTLM);
}

mailer.fromAddress("aslam.p@XYZ.net");
mailer.tos().appendAddress("aslam.p@XYZ.net");
// mailer.body("hi");
mailer.sendMail();
info('Done');
}

static void Email(Args _args)
{
str ToAddress = "aslam.p@infotech.net";
str FromAddress = "aslam.p@infotech.net";
str Subject = "Journal not posted";
str Body ;
str FileToAttach = 'C:\\Users\\aslam.p\\Desktop\\Report AX 2012, data processing_files\\A.Txt';//
SysMailer mailer = new SysMailer();
;
Body = "Body of the email";
mailer.quickSend(fromaddress,toaddress,subject,body,toaddress,FileToAttach);
info("Done");
}

static void EmailsendwithAttachment(Args _args)
{
Args args;
ReportRun rr;
str reportName = "Report2";
str myPath,pdfFileName;
str ToAddress = "aslam.p@infotech.net";
str FromAddress = "aslam.p@infotech.net";
str Subject = "Journal not posted";
str Body,messageBody ;
SysMailer mailer = new SysMailer();
;
messageBody = "Dear All, Please find the errors in ledger journal report attached.";
messageBody += "Regards,AX Admin";
messageBody += "Microsoft Dynamics AX";
messageBody += "Hospital";
body = strfmt("%1",messageBody);
startLengthyOperation();
args = new Args(reportName);
args.caller(rr);
rr = new reportRun(args);
rr.query().interactive(false);
rr.report().interactive(false);
rr.setTarget(printMedium::File);
rr.printJobSettings().setTarget(PrintMedium::File);
rr.printJobSettings().preferredTarget(PrintMedium::File);
rr.printJobSettings().format(PrintFormat::PDF);
rr.printJobSettings().warnIfFileExists(false);
rr.printJobSettings().suppressScalingMessage(true);
pdfFileName = @"C:\\Users\\aslam.p\\Desktop\\Report1.pdf";
rr.printJobSettings().fileName(pdfFileName);
rr.init();
rr.run();
endLengthyOperation();
info("Report hasbeen saved");
mailer.quickSend(fromaddress,toaddress,subject,body,toaddress,pdfFileName);
info("Done");

}
static void email(Args _args)
{
// For email notification
str messageBody;
NWH_XmlImpErrorFlag XmlImpErrorFlag;
InteropPermission permission = new InteropPermission(InteropKind::ComInterop);
SysMailer mailer;
str Body;
str ToAddress;
str FromAddress = "aslam.pasha@infotech.net";
str Subject = "Integration Alerts";
int x;
H_IntegrationParameters parameters;
Container id;
LedgerJournalTrans ljt;
date checkdate;
Real CheckDr , CheckCr ;
int i,j;
;
try
{
info("In the 'try' block. (j1)");
info("infolog!");
throw warning("test warning");
throw error("test error");
info("infolog!");
throw warning("test warning");
//throw Exception::Error;
}
catch
{

for (i=1; i<=infolog.line(); i++)
{
messageBody = ":" + infolog.text(i);

}
parameters = H_IntegrationParameters::find();
id = str2con(parameters.HSEmailId,",");
for(x=1 ; x <= conlen(id); x++ )
{
toaddress = strRem(conpeek(id,x)," ");
Body = strfmt("%1", messageBody) ;
CodeAccessPermission::revertAssert();
permission.assert();
mailer = new SysMailer();
// CodeAccessPermission::revertAssert();
mailer.quickSend(fromaddress,toaddress,subject,Body);
}

}
}
void NormalEmailSend()
{
str FromAddress = "XYZ.p@test.net";
str ToAddress = "XYZ.p@test.net,XYu.p@test.net";
str Subject = "Journals Posted successfully";
str Body,messageBody ;
SysMailer mailer = new SysMailer();
;
messageBody = "Dear All, All journal has been posted successfully.";
messageBody += "Regards,AX Admin";
messageBody += "Microsoft Dynamics AX";
messageBody += "Women's ";
body = strfmt("%1",messageBody);
mailer.quickSend(fromaddress,toaddress,subject,body,toaddress);
info("Normal Email send -Done");
}

https://sumitsaxfactor.wordpress.com/2008/09/09/email-techniques-in-ax-4-0/

Explore Dynamics World With Aslam

Thursday 24 April 2014

Email techniques in AX 5.0

No comments:

Post a Comment