AES - Attach file with email on Cloud

Shuaib Nazir

I am stuck on Attaching a file with EMAIL in Application Event System (AES).

In V9 on-prem, we had some Event Handlers, that used to send Emails with custom subject line and email body. Using "Attach" I was able to give the path of the file from Report Output Files folder and it was very nicely attached with the email.

On V10 MT Cloud, I am not able to achieve this functionality. Mainly because, I don't have full path of the file i.e. c:
eportsusername etc.

I see that on "Attach" Event Action form, Infor has added Server Name and Logical Folder fields. Also, I have identified that All the Report Output Files are available in "ReportServer" Server Name and "reportoutput" Logical Folder Name. (I identified it through File Maintenance Form).

Now when I Select the FileServer name and Logical Folder name, I only get the error message "Object reference not set to an instance of an object." . I know that file exists in this location, but Event System is unable to access this file.

Any hints please?

raviteja

Here is the sample code that worked for us. Check and convert it accordingly. We are trying to send Order Invoicing Credit Memo Report to user.

Action Sequence	Action Type	Action Description	Sequence	Parameters	Event Name	Handler Description	C(ParametersStatic)
20	Finish	Exit When Not PurchaseOrderDetailReport	1	CONDITION(NOT TASKNAME() LIKE "*OrderInvoicingCreditMemoReportLaser*")RESULT("Not a Order Invoicing CreditMemo Report Laser")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	CONDITION(NOT TASKNAME() LIKE "*OrderInvoicingCreditMemoReportLaser*")RESULT("Not a Order Invoicing CreditMemo Report Laser")
30	Set Values	Get TaskParms	1	SETVARVALUES(vTaskParms = TASKPARM(1))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vTaskParms = TASKPARM(1))
40	Set Values	Get UseProfilePos	1	SETVARVALUES(vUseProfileInvoices = INSTR(V(vTaskParms), "UseProfile=~LIT"), vUseProfileLen = "18")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vUseProfileInvoices = INSTR(V(vTaskParms), "UseProfile=~LIT"), vUseProfileLen = "18")
50	Set Values	Get vUseProfile String	1	SETVARVALUES(vUseProfile = SUBSTRING(V(vTaskParms), V(vUseProfileInvoices), V(vUseProfileLen)))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vUseProfile = SUBSTRING(V(vTaskParms), V(vUseProfileInvoices), V(vUseProfileLen)))
60	Set Values	Get vUseProfile Value	1	SETVARVALUES(vUseProfile = SUBSTRING(V(vUseProfile), V(vUseProfileLen), 1))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vUseProfile = SUBSTRING(V(vUseProfile), V(vUseProfileLen), 1))
70	Finish	Exit when UseProfile=0	1	CONDITION(V(vUseProfile) = '0')RESULT("UseProfile = 0. No need to email the report..")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	CONDITION(V(vUseProfile) = '0')RESULT("UseProfile = 0. No need to email the report..")
80	Load IDO Row	Get TaskParms1	1	IDO("BGTaskHistories")PROPERTIES("TaskParms1,TaskParms2")FILTER(SUBSTITUTE("TaskNumber = {0}", TASKNUMBER()))SET(RE(eTaskParms1) = "TaskParms1", RE(eTaskParms2) = "TaskParms2")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	IDO("BGTaskHistories")PROPERTIES("TaskParms1,TaskParms2")FILTER(SUBSTITUTE("TaskNumber = {0}", TASKNUMBER()))SET(RE(eTaskParms1) = "TaskParms1", RE(eTaskParms2) = "TaskParms2")
100	Set Values	Get Start & End InvNum	1	SETVARVALUES(vKeyText01 = "SubStartInvNum=", vKeyText02 = "SubEndInvNum=", vKeyText05 = SUBSTRING(E(eTaskParms1), INSTR(E(eTaskParms1), V(vKeyText01)) + LEN(V(vKeyText01)), (INSTR(E(eTaskParms1), V(vKeyText02)) - 1) - (INSTR(E(eTaskParms1), V(vKeyText01)) + LEN(V(vKeyText01)))), vKeyText06 = DBFUNCTION("ExpandKyByType", "InvNumType", V(vKeyText05)))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vKeyText01 = "SubStartInvNum=", vKeyText02 = "SubEndInvNum=", vKeyText05 = SUBSTRING(E(eTaskParms1), INSTR(E(eTaskParms1), V(vKeyText01)) + LEN(V(vKeyText01)), (INSTR(E(eTaskParms1), V(vKeyText02)) - 1) - (INSTR(E(eTaskParms1), V(vKeyText01)) + LEN(V(vKeyText01)))), vKeyText06 = DBFUNCTION("ExpandKyByType", "InvNumType", V(vKeyText05)))
110	Load IDO Row	Get Destination mail from Invoice	1	IDO("SLPos")PROPERTIES("PoNum, ue_GDL_PoEmail, VendNum")FILTER(SUBSTITUTE("PoNum = ('{0}')", V(vStartPoNum)))SET(RV(vVendNum) = "VendNum", RV(vDestination) = "ue_GDL_PoEmail")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	IDO("SLPos")PROPERTIES("PoNum, ue_GDL_PoEmail, VendNum")FILTER(SUBSTITUTE("PoNum = ('{0}')", V(vStartPoNum)))SET(RV(vVendNum) = "VendNum", RV(vDestination) = "ue_GDL_PoEmail")
140	Branch	Check Destination mail exists in Invoice	1	CONDITION(V(vDestination) <> "")DEST(180)	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	CONDITION(V(vDestination) <> "")DEST(180)
150	Load IDO Row	Get Destination Email from DocProfile	1	IDO("SLDocProfileCustomers")PROPERTIES("CustNum, Destination, RptName, Description, Active")FILTER(SUBSTITUTE("CustNum = ('{0}') AND RptName = 'Order Invoicing/Credit Memo' AND Active = '1'", V(vCustNum)))SET(RV(vDestination) = "Destination")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	IDO("SLDocProfileCustomers")PROPERTIES("CustNum, Destination, RptName, Description, Active")FILTER(SUBSTITUTE("CustNum = ('{0}') AND RptName = 'Order Invoicing/Credit Memo' AND Active = '1'", V(vCustNum)))SET(RV(vDestination) = "Destination")
160	Branch	Check Destination Email in DocProfile	1	CONDITION(V(vDestination) <> "")DEST(180)	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	CONDITION(V(vDestination) <> "")DEST(180)
170	Finish	Exit when Destination Email Not Found	1	CONDITION(V(vDestination) = "")	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	CONDITION(V(vDestination) = "")
180	Set Values	Build InvNum String Start and End InvNum	1	SETVARVALUES(vInvNum = SUBSTITUTE("{0} to {1}", V(vStartInvNum), V(vEndInvNum)))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vInvNum = SUBSTITUTE("{0} to {1}", V(vStartInvNum), V(vEndInvNum)))
190	Branch	When starting and ending Invoice NotSame	1	CONDITION(V(vStartInvNum) <> V(vEndInvNum)) DEST(210)	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	CONDITION(V(vStartInvNum) <> V(vEndInvNum)) DEST(210)
200	Set Values	Set InvNum with StartInvNum Value	1	SETVARVALUES(vInvNum = V(vStartInvNum))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vInvNum = V(vStartInvNum))
210	Set Values	Set Email Subject	1	SETVARVALUES(vSubject = SUBSTITUTE("N.Xxxxxxxxxxxxx Invoice :  {0} - {1} {2} - {3}", V(vInvNum), V(vCity),V(vState),V(vCustPO)))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vSubject = SUBSTITUTE("N.Xxxxxxxxxxxxx Invoice :  {0} - {1} {2} - {3}", V(vInvNum), V(vCity),V(vState),V(vCustPO)))
220	Load Collection	Get Invoice/CreditMemo document	1	IDO("DocumentObjectAndRefViews")PROPERTIES("CreateDate, CreatedBy, Description, DocumentName, EventHandlerStateRowPointer, TableRowPointer, TableName, DocumentObject")DISTINCT(FALSE)FILTER(SUBSTITUTE("TableName='{0}' AND TableRowPointer='{1}'", "EventState", EVENTSTATEID()))SET(R(rsAES) = RESULT)	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	IDO("DocumentObjectAndRefViews")PROPERTIES("CreateDate, CreatedBy, Description, DocumentName, EventHandlerStateRowPointer, TableRowPointer, TableName, DocumentObject")DISTINCT(FALSE)FILTER(SUBSTITUTE("TableName='{0}' AND TableRowPointer='{1}'", "EventState", EVENTSTATEID()))SET(R(rsAES) = RESULT)
230	Set Values	Set Invoice/CreditMemo Document Name	1	SETVARVALUES(vDocName = SUBSTITUTE("NW Invoice {0}", V(vInvNum)))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vDocName = SUBSTITUTE("NW Invoice {0}", V(vInvNum)))
240	Attach	Attach the Invoice/CreditMemo	1	DOCACTION(ATTACH)DOCNAME(FV(vDocName))DOCDESC("Order Verification Report")DOCTYPE("PDF")DOCMEDIATYPE("application/pdf")DOCBLOB(P(rsAES, 1, "DocumentObject"))ATTACHMENTNAME(V(vDocName))ATTACHMENTSEQ(vAttachSeq)	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	DOCACTION(ATTACH)DOCNAME(FV(vDocName))DOCDESC("Order Verification Report")DOCTYPE("PDF")DOCMEDIATYPE("application/pdf")DOCBLOB(P(rsAES, 1, "DocumentObject"))ATTACHMENTNAME(V(vDocName))ATTACHMENTSEQ(vAttachSeq)
250	Set Values	Add Username to destination email	1	SETVARVALUES(vDestination = SUBSTITUTE("{0};{1}", V(vDestination), USERNAME()))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vDestination = SUBSTITUTE("{0};{1}", V(vDestination), USERNAME()))
260	Set Values	Set EMail Body	1	SETVARVALUES(vBody = SUBSTITUTE("Dear Customer, <br /> <br /> Please find our attached Invoice {0} for your {1} {2} order, this invoice is due {3}. <br /> <br /> If you have any questions, please contact us at {4} or {5}. <br /> <br /> Sincerly, <br /> <br /> N. Xxxxxxxxxxxxx <br /> <br />", V(vStartInvoiceNum), V(vCity), V(vState), V(vDueDate), GC(NW_SalesInvoiceMailbox_DL), GC(NW_TollFreePhoneNumber)))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	SETVARVALUES(vBody = SUBSTITUTE("Dear Customer, <br /> <br /> Please find our attached Invoice {0} for your {1} {2} order, this invoice is due {3}. <br /> <br /> If you have any questions, please contact us at {4} or {5}. <br /> <br /> Sincerly, <br /> <br /> N. Xxxxxxxxxxxxx <br /> <br />", V(vStartInvoiceNum), V(vCity), V(vState), V(vDueDate), GC(NW_SalesInvoiceMailbox_DL), +(1)(800) 444-4697))
280	Send Email	Send External Email	1	TO(V(vDestination))REPLYTO(USERNAME())SUBJECT(V(vSubject))HTMLFORMAT(TRUE)BODY(V(vBody))ATTACH(V(vDocName))	NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email	TO(V(vDestination))REPLYTO(USERNAME())SUBJECT(V(vSubject))HTMLFORMAT(TRUE)BODY(V(vBody))ATTACH(V(vDocName))
290	Finish	Finish	1		NW_SendOrderInvoiceCreditMemoReportEmail	NW Send Order Invoice Credit Memo Email