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，功能很強大，有待繼續研究。