PS发送邮件实例！

￡神魔★判官ぃ 2021-12-15 02:51 422阅读 0赞

/\* AREVA T&D – Project – Kevin He - 16/FEB/2009 – Begin \*/  
/\* Send email with payslip to the corresponding employee. \*/  
import PT\_MCF\_MAIL:\*;

Local File &File;  
Local string &FILE\_NAME;

rem This text is used to debug email distribution  
&FILE\_NAME = "debug\_email.txt";  
&CHARSET = "U";  
&File = GetFile(&FILE\_NAME, "W", &CHARSET);

&retcode = 100;  
Local PT\_MCF\_MAIL:MCFOutboundEmail &email = create PT\_MCF\_MAIL:MCFOutboundEmail();  
&emailsentaddress = "[T&D\_HRIS\_ADMINISTRATOR@areva-td.com][T_D_HRIS_ADMINISTRATOR_areva-td.com]";  
&plain\_text = "Areva China PaySlip";  
&email.From = &emailsentaddress;  
&email.Subject = &plain\_text;  
rem Search directory  
&payslip\_dir = GetEnv("PS\_SERVDIR") | "/CHN\_PaySlip";  
&payslip\_dir\_all = &payslip\_dir | "/\*.pdf.exe.zip";

Local PT\_MCF\_MAIL:MCFBodyPart &text = create PT\_MCF\_MAIL:MCFBodyPart();  
SQLExec("select DESCR from PS\_GP\_CAL\_RUN where CAL\_RUN\_ID = :1",

TD\_GPCN\_PSL\_AET.CAL\_RUN\_ID, &CAL\_RUN);  
rem Email body saved in Explain Text of Message box, which has format.  
&text.Text = MsgGetExplainText(25001, 1, "Message Not Found", &CAL\_RUN);  
&text.ContentType = "text/plain; charset=UTF-8";

rem Search for all files that end with \*.pdf.exe and saved files name into array  
&FNAMES = FindFiles(&payslip\_dir\_all, %FilePath\_Absolute);  
While &FNAMES.Len > 0  
  
rem Pop up file name one by one  
&filedir = &FNAMES.Shift();  
SQLExec("select substr(:1, instr(:1, '/', -1, 1) + 1, length(:1)) from dual",

&filedir, &filename);  
SQLExec("SELECT SUBSTR(:1, 1, length(:1) - 8) FROM DUAL", &filename, &filename\_pdf);  
SQLExec("select substr(:1, 1, instr(:1, '\_', -1, 1) - 1) from dual", &filename,

&emplid);  
SQLExec("select email\_addr from ps\_email\_addresses where EMPLID = :1 and E\_ADDR\_TYPE

='BUSN'", &emplid, &emailaddress);  
REM &email.Recipients = &emailaddress;  
rem &email.Recipients = "[max.an@areva-td.com][max.an_areva-td.com]";  
&email.Recipients = "[khe@ataway.com][khe_ataway.com]";  
Local PT\_MCF\_MAIL:MCFBodyPart &attach = create PT\_MCF\_MAIL:MCFBodyPart();  
Local PT\_MCF\_MAIL:MCFMultipart &mp = create PT\_MCF\_MAIL:MCFMultipart();  
&attach.SetAttachmentContent(&filedir, %FilePath\_Absolute, &filename, "Areva China

PaySlip", "", "");

rem add email body part  
&mp.AddBodyPart(&text);  
&mp.AddBodyPart(&attach);  
&email.MultiPart = &mp;  
  
Local integer &resp = &email.Send();  
  
Evaluate &resp  
When %ObEmail\_Delivered  
rem when email was distributed successfully, remove attachment from ftp server  
&server\_dir = GetEnv("PS\_SERVDIR") | "/CHN\_PaySlip/";  
&MyFile = GetFile(&server\_dir | &filename, "U", %FilePath\_Absolute);  
&MyFile1 = GetFile(&server\_dir | &filename\_pdf, "U", %FilePath\_Absolute);  
&MyFile.Delete();  
&MyFile1.Delete();  
Break;  
  
When %ObEmail\_NotDelivered  
rem Check &email.InvalidAddresses, &email.ValidSentAddresses and

&email.ValidUnsentAddresses ;  
&File.WriteLine(&filename | " was not delivered successfully. Please check his/her

email address " | &email.InvalidAddresses);  
Error (1);  
Break;  
  
When %ObEmail\_PartiallyDelivered  
rem Check &email.InvalidAddresses, &email.ValidSentAddresses and

&email.ValidUnsentAddresses;  
&File.WriteLine(&filename | " was partially delivered successfully. Please check

his/her email address " | &email.InvalidAddresses);  
Error (1);  
Break;  
  
When %ObEmail\_FailedBeforeSending  
rem Get the Message Set Number, message number, Or just get the formatted messages

from &email.ErrorDescription, &email.ErrorDetails;  
&File.WriteLine(&filename | " failed before sending. Please check error descr: " |

&email.ErrorDescription);  
Error (1);  
Break;  
When-Other  
&File.WriteLine(&filename | " failed. Not sure about the reason, Please check email

address or error descr: " | &email.ErrorDescription);  
Error (1);  
Break;  
End-Evaluate;  
  
/\*If (&retcode = %Attachment\_Success) Then  
&File.WriteLine("DeleteAttachment succeeded");  
End-If;  
If (&retcode = %Attachment\_Failed) Then  
&File.WriteLine("DeleteAttachment failed");  
End-If;  
If (&retcode = %Attachment\_Cancelled) Then  
&File.WriteLine("DeleteAttachment cancelled");  
End-If;  
If (&retcode = %Attachment\_FileTransferFailed) Then  
&File.WriteLine("DeleteAttachment failed: File Transfer did not succeed");  
End-If;  
If (&retcode = %Attachment\_FileNotFound) Then  
&File.WriteLine("DeleteAttachment failed: Cannot locate file");  
End-If;\*/  
  
/\* following error message only in PeopleSoft Internet Architecture \*/  
  
/\*If (&retcode = %Attachment\_NoDiskSpaceAppServ) Then  
&File.WriteLine("DeleteAttachment failed: No disk space on the app server");  
End-If;\*/  
  
/\* following error message only in PeopleSoft Internet Architecture \*/  
  
/\*If (&retcode = %Attachment\_NoDiskSpaceWebServ) Then  
&File.WriteLine("DeleteAttachment failed: No disk space on the web server");  
End-If;  
  
If (&retcode = %Attachment\_FileExceedsMaxSize) Then  
&File.WriteLine("DeleteAttachment failed: File exceeds the max size");  
End-If;  
If (&retcode = %Attachment\_DestSystNotFound) Then  
&File.WriteLine("DeleteAttachment failed: Cannot locate destination system for

ftp");  
End-If;  
If (&retcode = %Attachment\_DestSysFailedLogin) Then  
&File.WriteLine("DeleteAttachment failed: Unable to login into destination system

for ftp");  
End-If;\*/  
  
End-While;

rem remove all files in the directory  
rem RemoveDirectory(&payslip\_dir, %FilePath\_Absolute + %Remove\_Subtree);  
&File.Close();  
/\* AREVA T&D – Project – Kevin He - 16/FEB/2009 – End \*/

转载于:https://www.cnblogs.com/GoDevil/archive/2009/05/21/1486409.html

[T_D_HRIS_ADMINISTRATOR_areva-td.com]: mailto:T&amp;D_HRIS_ADMINISTRATOR@areva-td.com
[max.an_areva-td.com]: mailto:max.an@areva-td.com
[khe_ataway.com]: mailto:khe@ataway.com