home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / Internet / Email / YAM2.0 / Rexx / Example3.yam < prev    next >
Encoding:
Text File  |  1999-08-03  |  696 b   |  20 lines
  1. /* Example3.yam - YAM ARexx interface example #3  */
  2. /* Print information about attachments of active  */
  3. /* message                                        */
  4. /* Requires YAM 2.0p7 or later                    */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. MailRead QUIET                        /* Decode message in background */
  10. ReadInfo STEM ri.                     /* Get information about message */
  11. ReadClose                             /* Finish reading */
  12. DO i = 0 TO ri.filename.count-1       /* Display read info */
  13.    SAY 'Information about part #'i+1
  14.    SAY '  File name: 'ri.filename.i
  15.    SAY '  File type: 'ri.filetype.i
  16.    SAY '  File size: 'ri.filesize.i
  17.    SAY '  Stored at: 'ri.tempfile.i
  18. END
  19.  
  20.