PB通过OUTLOK发送邮件

//函数

 global   type   f_mymail   from   function_object  
  end   type  
   
  forward   prototypes  
  global   subroutine   f_mymail   (string   mailto,   string   mailsubject,   string   mailbody)  
  end   prototypes  
   
  global   subroutine   f_mymail   (string   mailto,   string   mailsubject,   string   mailbody);mailSession   mSes  
  mailReturnCode   mRet  
  mailMessage   mMsg  
  //   Create   a   mail   session  
  mSes   =   create   mailSession  
  //   Log   on   to   the   session  
  mRet   =   mSes.mailLogon(mailNewSession!)  
  IF   mRet   <>   mailReturnSuccess!   THEN  
          MessageBox("邮件",   '失败！')  
          RETURN  
  END   IF  
  //   Populate   the   mailMessage   structure  
  mMsg.Subject   =   mailsubject  
  mMsg.NoteText   =   mailbody  
  mMsg.Recipient[1].name   =   mailto  
  //   Send   the   mail  
  mRet   =   mSes.mailSend(mMsg)  
  IF   mRet   <>   mailReturnSuccess!   THEN  
          MessageBox("发送",   '发送不成功！')  
          RETURN  
  END   IF  
  mSes.mailLogoff()  
  DESTROY   mSes  
  end   subroutine   
 

这是调用函数的语句:   
 f_mymail('tony@aesseal.com.cn,'题目','内容')