home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / YAM / Rexx / Register.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  885 b   |  24 lines
  1. /*
  2. ** $VER: Register.rexx 1.0 (3.11.96)
  3. **
  4. ** Written by Marcel Beck <mbeck@access.ch>
  5. **
  6. ** This script serves as example for YAM's ARexx interface.
  7. ** It scans the archive folder for messages with the subject
  8. ** "YAM Registration" and outputs the sender.
  9. **/
  10.  
  11. OPTIONS RESULTS
  12. ADDRESS YAM
  13. SetFolder 3                                  /* go to Archive folder  */
  14. GetFolderInfo MAX; entries = RESULT          /* get number of mail    */
  15. DO i=0 TO entries-1                          /* scan all mail         */
  16.   SetMail i                                  /* set topical mail      */
  17.   GetMailInfo SUBJECT                        /* ask for subject       */
  18.   IF RESULT = 'YAM Registration' THEN DO     /* criteria accomplished */
  19.     GetMailInfo FROM                         /* ask for sender and    */
  20.     SAY RESULT                               /* display it            */
  21.   END
  22. END
  23.  
  24.