AE中将BIPublisher 生成的报表作为邮件附件发送

想要把BIPubliser 生成的报表作为邮件附件发送，首先要知道报表路径，我们知道报表路径是存在 ps_cdm_list 和 ps_cdm_file_list 两张表里的，当报表发布之后，我们可以用SQL语句
将报表在服务器的路径查出来。

1. SQlExec("select contentid from ps_cdm_file_list where prcsinstance=:1 and cdm_file_type=:2",&Process_instance,&Report_file_type,&Contenid);
   
2. /参数1是Process_instance ,参数2 是报表文件类型;返回报表内容ID;
   
3. /然后跟剧&Contenid 查出报表在服务器的路径;
   
4. SQLExec("SELECT outputdir  FROM PS_CDM_LIST where prcsinstance = :1 and  contentid=:2  ", &Process_Instance, &Contenid, &OutPutDir);
   

得到报表文件路径之后，我们就可以讲报表文件作为邮件附件发出了。然而，AE发布报表的时间较长，当我们的代码执行完成之后报表才发布。这样的话当我们查询PS_CDM_List的时候
就得不到报表路径。为了解决这个问题，我们可以把当前线程睡眠一段时间，

1. Local string &ReportName = "Z_RPT_PRB";
   
2. &OUTTYPE = "PDF";
   
3. rem SQLExec("SELECT contentid FROM ps_cdm_file_list where prcsinstance = :1", &Process, &en);
   
4. &contenid = 0;
   
5. While (&contenid = 0)
   
6. SQLExec("SELECT contentid FROM ps_cdm_file_list where prcsinstance = :1 and cdm_file_type=:2 ", &Process, &OUTTYPE, &contenid);
   
7. &s = 40;
   
8. GetJavaClass("java.lang.Thread").sleep(1000 * &s);
   
9. End-While;
   
10. SQLExec("SELECT outputdir FROM PS_CDM_LIST where prcsinstance = :1 and contentid=:2 ", &ProcessInstance, &contenid, &OutPutDir);

直至XMLP进程将报表发布。然后再查询报表路径，就可以实现我们的目的了。完整代码如下

1. import PT_MCF_MAIL:*;
   
2. 
   
3. &ProcessInstance = Z_TEST_AET.PROCESS_INSTANCE;
   
4. 
   
5. Local string &Process = String(&ProcessInstance);
   
6. 
   
7. Local string &ReportName = "Z_RPT_PRB";
   
8. &OUTTYPE = "PDF";
   
9. rem SQLExec("SELECT contentid FROM ps_cdm_file_list where prcsinstance = :1", &Process, &en);
   
10. &contenid = 0;
    
11. While (&contenid = 0)
    
12. SQLExec("SELECT contentid FROM ps_cdm_file_list where prcsinstance = :1 and cdm_file_type=:2 ", &Process, &OUTTYPE, &contenid);
    
13. &s = 40;
    
14. GetJavaClass("java.lang.Thread").sleep(1000 * &s);
    
15. End-While;
    
16. SQLExec("SELECT outputdir FROM PS_CDM_LIST where prcsinstance = :1 and contentid=:2 ", &ProcessInstance, &contenid, &OutPutDir);
    
17. 
    
18. Local string &AttachmentUrl = "/ps/psreports/" | &OutPutDir | "/" | &ReportName | "." | "pdf";
    
19. 
    
20. Local PT_MCF_MAIL:MCFOutboundEmail &email = create PT_MCF_MAIL:MCFOutboundEmail();
    
21. &FromAddress = <A href="mailto:AAAA@sina.cn">AAAA@sina.cn</A>;
    
22. &ToList = "XXXXXXXx@163.com";
    
23. &Subject = "Test Report as Attachment";
    
24. &email.From = &FromAddress;
    
25. &email.Recipients = &ToList;
    
26. &email.Subject = &Subject;
    
27. &email.Text = "Test";
    
28. Local string &plain_text = "Test Add Attachment!";
    
29. Local PT_MCF_MAIL:MCFBodyPart &text = create PT_MCF_MAIL:MCFBodyPart();
    
30. &text.Text = &plain_text;
    
31. 
    
32. rem Local PT_MCF_MAIL:MCFBodyPart &attach1 = create PT_MCF_MAIL:MCFBodyPart();
    
33. rem &attach1.SetAttachmentContent("Ocean Wave.jpg", %FilePath_Relative, "Ocean Wave.jpg", "Ocean Wave", "", "");
    
34. /* %FilePath_Relative indicates the file is available at Appserver's FILES?
    
35. dierctory */
    
36. 
    
37. Local PT_MCF_MAIL:MCFBodyPart &attach2 = create PT_MCF_MAIL:MCFBodyPart();
    
38. &attach2.SetAttachmentContent(&AttachmentUrl, %FilePath_Absolute, "Attachment.pdf", "Attachmen", "", "");
    
39. /* The Sample.jpg is available in the "public" folder of my-server machine*/
    
40. 
    
41. 
    
42. Local PT_MCF_MAIL:MCFMultipart &mp = create PT_MCF_MAIL:MCFMultipart();
    
43. &mp.AddBodyPart(&text);
    
44. rem &mp.AddBodyPart(&attach1);
    
45. &mp.AddBodyPart(&attach2);
    
46. 
    
47. &email.MultiPart = &mp;
    
48. 
    
49. Local integer &res = &email.Send();
    
50. 
    
51. Local boolean &done;
    
52. 
    
53. Evaluate &resp
    
54. When %ObEmail_Delivered
    
55. /* every thing ok */
    
56. &done = True;
    
57. Break;
    
58. 
    
59. When %ObEmail_NotDelivered
    
60. /*-- Check &email.InvalidAddresses, &email.ValidSentAddresses
    
61. and &email.ValidUnsentAddresses */
    
62. &done = False;
    
63. Break;
    
64. 
    
65. When %ObEmail_PartiallyDelivered
    
66. /* Check &email.InvalidAddresses, &email.ValidSentAddresses
    
67. and &email.ValidUnsentAddresses; */
    
68. &done = True;
    
69. Break;
    
70. 
    
71. When %ObEmail_FailedBeforeSending
    
72. /* Get the Message Set Number, message number;
    
73. Or just get the formatted messages from &email.ErrorDescription,
    
74. &email.ErrorDetails;*/
    
75. 
    
76. &done = False;
    
77. Break;
    
78. End-Evaluate;
    
79.