PeopleCode 发送邮件并给邮件添加附件

1. import PT_MCF_MAIL:*;
   
2. 
   
3. Local PT_MCF_MAIL:MCFOutboundEmail &email = 
   
4. create PT_MCF_MAIL:MCFOutboundEmail();
   
5. 
   
6. &email.From = &FromAddress;
   
7. &email.Recipients = &ToList;
   
8. &email.Subject = &Subject;
   
9. 
   
10. Local string &plain_text = "Hi there!";
    
11. Local PT_MCF_MAIL:MCFBodyPart &text = create PT_MCF_MAIL:MCFBodyPart();
    
12. &text.Text = &plain_text;
    
13. 
    
14. Local PT_MCF_MAIL:MCFBodyPart &attach1 = create PT_MCF_MAIL:MCFBodyPart();
    
15. &attach1.SetAttachmentContent("Ocean Wave.jpg", %FilePath_Relative, 
    
16. "Ocean Wave.jpg", "Ocean Wave", "", "");
    
17. /* %FilePath_Relative indicates the file is available at Appserver's FILES?
    
18. dierctory */
    
19. 
    
20. Local PT_MCF_MAIL:MCFBodyPart &attach2 = create PT_MCF_MAIL:MCFBodyPart();
    
21. &attach2.SetAttachmentContent("///file:C:/User/Documentum/XML%20Applications?
    
22. /proddoc/peoplebook_upc/peoplebook_upc.dtd",
    
23. %FilePath_Absolute, "Sample.jpg", "Sample", "", "");
    
24. /* The Sample.jpg is available in the "public" folder of my-server machine*/
    
25. 
    
26. 
    
27. Local PT_MCF_MAIL:MCFMultipart &mp = create PT_MCF_MAIL:MCFMultipart();
    
28. &mp.AddBodyPart(&text);
    
29. &mp.AddBodyPart(&attach1);
    
30. &mp.AddBodyPart(&attach2);
    
31. 
    
32. &email.MultiPart = ∓
    
33. 
    
34. Local integer &res = &email.Send();
    
35. 
    
36. Local boolean &done;
    
37. 
    
38. Evaluate &resp
    
39. When %ObEmail_Delivered
    
40. /* every thing ok */
    
41. &done = True;
    
42. Break;
    
43. 
    
44. When %ObEmail_NotDelivered
    
45. /*-- Check &email.InvalidAddresses, &email.ValidSentAddresses
    
46. and &email.ValidUnsentAddresses */
    
47. &done = False;
    
48. Break;
    
49. 
    
50. When %ObEmail_PartiallyDelivered
    
51. /* Check &email.InvalidAddresses, &email.ValidSentAddresses
    
52. and &email.ValidUnsentAddresses; */
    
53. &done = True;
    
54. Break;
    
55. 
    
56. When %ObEmail_FailedBeforeSending
    
57. /* Get the Message Set Number, message number;
    
58. Or just get the formatted messages from &email.ErrorDescription,
    
59. &email.ErrorDetails;*/
    
60. 
    
61. &done = False;
    
62. Break;
    
63. End-Evaluate;