home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / on-line / yam2.1 / contributions / rexx / michael_luense / from.yam < prev    next >
Encoding:
Text File  |  2000-06-12  |  517 b   |  17 lines
  1. /*******************************************************************************/
  2. /* Schreibt eine Log datei von allen mails vom Absender 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. 'GetMailInfo Act'
  9. 'GetFolderInfo Max'
  10. n=result
  11. do m=0 to n-1
  12. 'SetMail' m
  13. call open(tmp,'Ram:Von.Log','W')
  14. MAILINFO STEM mi.
  15. call writeln(tmp,""mi.From"")
  16. end
  17.