home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / windowsxp / ftgateoffice / ftgateoffice.exe / Main / splitmail.fts < prev    next >
Encoding:
Text File  |  2001-11-29  |  1.0 KB  |  57 lines
  1. <%
  2. #include <ftgate.fts>
  3.  
  4. const MAX_RECIPIENTS    = 75
  5. var log = new server.log
  6.  
  7. var count = 0
  8. var ok = message.envelope.firstrecipient()
  9. while (ok)
  10. {
  11.     count++
  12.     ok = message.envelope.nextrecipient()
  13. }
  14.  
  15. if (count>MAX_RECIPIENTS)
  16. {
  17.     var success=true
  18.  
  19.     log.write(LOG_NORMAL, "Splitting message, Max recipients="+MAX_RECIPIENTS)
  20.     var split = MAX_RECIPIENTS
  21.     count=0
  22.     ok = message.envelope.firstrecipient()
  23.     while (ok)
  24.     {
  25.         var newmsg = new server.newmessage
  26.  
  27.         if (newmsg.new())
  28.         {
  29.             newmsg.write.sender(message.envelope.sender)
  30.             while ((ok!=0)&&(count<split))
  31.             {
  32.                 newmsg.write.recipient(message.envelope.recipient)
  33.                 ok = message.envelope.nextrecipient()
  34.                 count++
  35.             }
  36.  
  37.             var ok2 = message.firsttext()
  38.             while (ok2)
  39.             {
  40.                 newmsg.write(message.text)
  41.                 ok2=message.nexttext()
  42.             }
  43.  
  44.             newmsg.close()
  45.         }
  46.         else
  47.         {
  48.             log.write(LOG_NORMAL, "SplitMail.fts failed to create message")
  49.             success=false
  50.             ok=false
  51.         }
  52.         split=split+MAX_RECIPIENTS
  53.     }
  54.  
  55.     message.delete(message.id)
  56. }
  57. %>