Skip to main content

Sending Report through email in axapta

This is the sample code for Sending Report through email in axapta. This cod you can use in any version of Ax (3.0,4.0,2009,2012 etc)


 void reportSendMail(PrintJobSettings p1)  
 {  
 //SysINetMail m = new SysINetMail(); // Mo : Commented out old AX code  
 System.Net.Mail.MailMessage mailMessage;  
 System.Net.Mail.Attachment attachment;  
 System.Net.Mail.AttachmentCollection attachementCollection;  
 System.Net.Mail.SmtpClient myMail;  
 System.Net.Mail.MailAddress mailFrom;  
 System.Net.Mail.MailAddress mailTo;  
 str userMailAddress;  
 str receiverMailAddress;  
 str mailBody;  
 str smtpServer;  
 fileNameOpen fileNameForEmail;  
 str mail;  
 FileIOPermission perm;  
 userinfo userInfo;  
 //end Declaration  
 str fileName = 'axaptareport';  
 ;  
 if (p1.format() == PrintFormat::ASCII)  
 fileNameForEmail = subStr(p1.fileName(),strLen(p1.fileName())-3,-999)+'TXT'; // Mo : NL  
 //fileName = fileName + '.txt'; // Mo Commented this line  
 else if (p1.format() == PrintFormat::RTF)  
 fileNameForEmail = subStr(p1.fileName(),strLen(p1.fileName())-3,-999)+'RTF';  
 //fileName = fileName + '.rtf';  
 else if (p1.format() == PrintFormat::HTML)  
 fileNameForEmail = subStr(p1.fileName(),strLen(p1.fileName())-3,-999)+'HTM';  
 //fileName = fileName + '.htm';  
 //else if (p1.format() == PrintFormat::PDF) // Mohammed :Performance Testing : commentign this line and replacing the line below.  
 else if (p1.format() == PrintFormat::PDF || p1.format() == PrintFormat::PDF_EMBED_FONTS)// Mohammed :Performance Testing :(replacing the above line) addign this line as it was present in the jsRemotecontroller project.. can be removedd later..  
 fileNameForEmail = subStr(p1.fileName(),strLen(p1.fileName())-3,-999)+'PDF';  
 //fileName = fileName + '.pdf';  
 // mail = subStr(fileNameforEmail,(strlen(fileNameforEmail)-18),18);  
 mail = Tmpemplname;  
 select firstonly name from userInfo where userInfo.id == SysuserInfo::find().Id; // to find the user name  
 fileNameforEmail = winApi::getTempPath() + mail; // store attachment in a temp location  
 perm = new FileIOPermission(fileNameforEmail,'w');  
 if(!perm)  
 {  
 throw error("Cannot move attachment to temp location.");  
 return;  
 }  
 try  
 {  
 perm.assert();  
 }  
 catch  
 {  
 throw error("Cannot gain access to Temp location.");  
 return;  
 }  
 userMailAddress = SysUserInfo::find().Email; // find current users email address setup up in user //options  
 receiverMailAddress = p1.mailTo(UserEmailid);  
 mailFrom = new System.Net.Mail.MailAddress(userMailAddress,userInfo.name);  
 mailTo = new System.Net.Mail.MailAddress(receiverMailAddress,"");  
 mailBody = "Hi, "+ '\n' + '\n' + "PFA." + '\n' + '\n' + ";  
 smtpServer = SysEmaiLParameters::find(false).SMTPRelayServerName;// using the SMTP server ip //setup in email Parameters  
 mailMessage = new System.Net.Mail.MailMessage(mailFrom,mailTo);  
 mailmessage.set_Subject(p1.mailSubject());  
 mailmessage.set_Body(mailBody);  
 // winapi::moveFile(p1.fileName(), fileNameforEmail);  
 winapi::copyFile(p1.fileName(), fileNameforEmail);  
 attachementCollection = mailMessage.get_Attachments();  
 attachment = new System.Net.Mail.Attachment(fileNameforEmail);  
 attachementCollection.Add(attachment);  
 myMail = new System.Net.Mail.SmtpClient(smtpServer);  
 mymail.Send(mailmessage);  
 FinalFlag = true;  
 winApi::deleteFile(fileNameforEmail); // delete temp file  
 CodeAccessPermission::revertAssert()  
 }  

Popular posts from this blog

Example of code to Validate field in axapta using validate method of datasource

Example of code to Validate field in axapta using validate method of datasource public boolean validateField(fieldId _fieldIdToCheck) { boolean ret; ret = super(_fieldIdToCheck); if (ret) { switch (_fieldIdToCheck) { case fieldnum(MyTable, custName) : if (strlen(this.custName) <= 3) ret = checkFailed("Customer name must be longer than 3 characters."); } } return ret; }

Auto Submit Workflow for Approval in Ax 2012

Sometimes we need to submit Auto Submit Workflow for Approval in Ax 2012 then you can try below code by job. One thing you need to remember submitter should not be approval in workflow designer if its then this job may create some issue on approval. Rest is fine you can use this code for your customization. Inventtable inventtable =InventTable::find("628034tr1"); Workflow::activateFromWorkflowType("InventApprWFType", //Template name inventtable.RecId, //Record id of the document that you are submitting, 'Auto-Submitted into workflow', //A comment for the workflow history to know something about how this was submitted, false,//This document wasn't submitted from the web, 'userid1'); // T info("done");

How Group by clause work in MSD Axapta x++

How Group by clause work in Axapta x++ If we use group by clause in ax then we should know how it work . for example select tabletest group by testno,testgroup; it means you will get record by grouping of testno and testgroup but it there is no field selected that means its internally two fields testno,testgroup is in select query means actual query working like this. select testno,testgroup from tabletest group by testno,testgroup; you can also select group by clause with while like this while select tabletest group by testno,testgroup { statements; ----------- ---------- } if we take aggregate funtion with group by clause like this select count(recid) from tabletest group by testno,testgroup; then actual query will work like this select count(recid),testno,testgroup from tabletest group by testno,testgroup;