home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / on-line / yam2.1 / contributions / rexx / michael_luense / databaseeingang.yam < prev    next >
Encoding:
Text File  |  2000-06-12  |  623 b   |  24 lines
  1. /**************************************************************************/
  2. /* Schreibt eine Info Log datei von allen mails im gewählten Postfach     */
  3. /* © Michael Lünse <m.luense@t-online.de> 12-Juni-2000                    */
  4. /**************************************************************************/
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS 'YAM'
  8. 'SETFOLDER Eingang'
  9. 'FOLDERINFO stem folder.'
  10.  
  11. call open(temp, 'Ram:Eingang.log', 'w')
  12.  
  13. Do i = 0 TO folder.total - 1
  14.  
  15.     'SETMAIL' i
  16.     'MAILINFO stem msg.'
  17.  
  18.     entry = msg.index || ' ' || "Von:" msg.from "Betreff:" msg.subject
  19.  
  20.     call writeln(temp, entry)
  21. end
  22.  
  23. call close(temp)
  24.