PeopleCode 邮件发送

首先需要配置psappsrv.cfg里面的SMTP信息，如SMTP服务器IP，端口，发送邮箱
如果是在BATCH里运行，则需要配置相应的PRCS的psprcs.cfg文件.可以方便的实现自动发送。

1.使用内建函数sendMain()
样例

Function SentMailFunc(Mail_To_Addr, &Title, &MailContent) MAIL_FLAGS = 0; MAIL_TO = &Mail_To_Addr; MAIL_CC = ""; MAIL_BCC = ""; MAIL_SUBJECT = &Title; MAIL_TEXT = &MailContent; MAIL_FILES = ""; MAIL_TITLES = ""; MAIL_SENDER = %EmailAddress; RET = SendMail(&MAIL_FLAGS, &MAIL_TO, &MAIL_CC, &MAIL_BCC, &MAIL_SUBJECT, &MAIL_TEXT, &MAIL_FILES, &MAIL_TITLES, &MAIL_SENDER); End-Function;

使用方便，内部实现使用psmail.exe程序，但是没法进行身份验证，只能使用支持匿名发送的邮件服务器。

2.使用API
样例

import PT_MCF_MAIL:MCFOutboundEmail; Function SentMailFunc(Mail_To_Addr, &Title, &MailContent) Local PT_MCF_MAIL:MCFOutboundEmail email = create PT_MCF_MAIL:MCFOutboundEmail(); email.Recipients = &Mail_To_Addr; email.Subject = &Title; email.Text = &MailContent; email.IsAuthenticationReqd = True; email.SMTPUserName = "Admin"; email.SMTPUserPassword = "Admin"; Local integer res = &email.Send(); End-Function;

这种方法内部实现是JAVA MAIL API，功能很强大，有待继续研究。