home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / Internet / Email / YAM2.0 / Rexx / Example1.yam next >
Encoding:
Text File  |  1999-08-03  |  742 b   |  19 lines
  1. /* Example1.yam - YAM ARexx interface example #1  */
  2. /* Save selected messages in plain text format    */
  3. /* Files are named RAM:1.msg, RAM:2.msg, etc.     */
  4. /* Requires YAM 2.0p7 or later                    */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. GetSelected STEM selected.             /* Get list of selected messages */
  10. c = 0
  11. DO i = 0 TO selected.NUM.COUNT-1       /* Loop through selected mails */
  12.    SetMail selected.NUM.i              /* Set current message */
  13.    MailRead QUIET                      /* Decode message in background */
  14.    c = c+1                             /* Increase filename counter */
  15.    'ReadSave FILENAME "RAM:'c'.msg"'   /* Save visible part to RAM: */
  16.    ReadClose                           /* Finish reading */
  17. END
  18.  
  19.