PeopleBooks -- Mail Classes

hmjs288

PeopleBooks 中一段实例代码 小弟想问问怎么样使用，为何我发出的EMAIL 正文都是空的？？？

import PT_MCF_MAIL:*;
/*-- Create an outbound email object --*/
   
Local PT_MCF_MAIL:MCFOutboundEmail &eMail =
create PT_MCF_MAIL:MCFOutboundEmail();
   
/*-- Initialize the usual fields of an email --*/
   
&eMail.From = &FromAddress;
&eMail.Recipients = &ToList;
&eMail.Subject = &Subject;
&eMail.Text = &MailBody;
   
/*-- The send method uses the default SMTP parameters as set in the app server configuration file.
This send method makes a connection to the SMTP server, sends the mail and then disconnects.
The result are returned as a number corresponding to the possible values.
The list of ValidSent, InvalidSent and Invalid addresses are returned in the email object itself
----*/
   
Local integer &resp = &eMail.Send();
Local boolean &done;
   
Evaluate &resp
   When %ObEmail_Delivered
      /* every thing ok */
      &done = True;
      Break;
      
   When %ObEmail_NotDelivered
/*-- Check &email.InvalidAddresses, &email.ValidSentAddresses
and &email.ValidUnsentAddresses */
      &done = False;
      Break;
      
   When %ObEmail_PartiallyDelivered
/* Check &email.InvalidAddresses, &email.ValidSentAddresses
and &email.ValidUnsentAddresses; */
      &done = True;
      Break;
      
   When %ObEmail_FailedBeforeSending
/* Get the Message Set Number, message number;
Or just get the formatted messages from &email.ErrorDescription,
&email.ErrorDetails;*/
      
      &done = False;
      Break;
   End-Evaluate;

hmjs288

曾尝试 改动&eMail.Text = &MailBody;
为 &eMail.Text = “222222”；
但是 在收到的EMAIL 中看不到 变化。。。

王明雷

就是没有填写内荣