home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma67.dms / ma67.adf / YAM / Rexx / register.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-02-28  |  650 b   |  14 lines
  1. /* register.rexx */
  2. OPTIONS RESULTS
  3. ADDRESS YAM
  4. SetFolder 3                                  /* Archiv-Postfach wählen */
  5. GetFolderInfo MAX; eintraege = RESULT        /* Anzahl Mails abfragen  */
  6. DO i=0 TO eintraege-1                        /* Gehe alle Mails durch  */
  7.   SetMail i                                  /* Aktuelle Mail setzen   */
  8.   GetMailInfo SUBJECT                        /* Betreff abfragen       */
  9.   IF RESULT = 'YAM Registrierung' THEN DO    /* Kriterium erfüllt?     */
  10.     GetMailInfo FROM                         /* Absender Abfragen und  */
  11.     SAY RESULT                               /* ausgeben               */
  12.   END
  13. END
  14.