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

strScan and Find a first occurrence of a string in a string using x++

strScan (Find a first occurrence of a string in a string) info("int strScan(str _text1,str _text2,int _position,int _number)"); info("Searches a text string for the occurrence of another string."); info("_text1 - The text string to search."); info("_text2 - The string to find."); info("_position - The position at which the search should start."); info("_number - The number of characters that should be searched."); info(int2str(strScan("ABCDEFGHIJ","DE",1,10)));

Get record from table on the basis of field id in Microsoft dynamics axapta x++

How to Get record from table on the basis of field id in dynamics axapta x++. just try following code in job to understand better way. emplTable emplTable; FieldId fieldId; ; fieldId = fieldNum(emplTable, Emplid); select emplTable; info(emplTable.(fieldId)); select emplTable where emplTable.(fieldId) == '1101'; info(emplTable.Name);

Code to get customer Primary Address in Ax 2012

Below Code to get customer Primary Address in Ax 2012. CustTable custTable_P; DirPartyTable dirPartyTable_P; DirPartyLocation dirPartyLocation_P; DirPartyLocationRole dirPartyLocationRole_P; LogisticsLocation logisticsLocation_P; LogisticsLocationRole logisticsLocationRole_P; LogisticsPostalAddress logisticsPostalAddress_P; LogisticsPostalAddress primaryAddress_P; while select custTable_P where custTable_P.AccountNum =='ED_01029' join dirPartyTable_P where dirPartyTable_P.RecId == custTable_P.Party join dirPartyLocation_P where dirPartyLocation_P.Party == custTable_P.Party && dirPartyLocation_P.IsPrimary==NoYes::Yes join dirPartyLocationRole_P where dirPartyLocationRole_P.PartyLocation == dirPartyLocation_P.RecId join logisticsLocationRole_P where logisticsLocationRole_P.RecId == dirPartyLocationRole