home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / umailpop.zip / UMailPOP.cmd next >
OS/2 REXX Batch file  |  1994-08-22  |  869b  |  18 lines
  1. /* Poll for incoming POP Mails                                     */
  2. /* (C) Copyright Volker Weber 1994                                 */
  3. /*                                                                 */
  4. /* My local user name in UltiMail:      vowe                       */
  5. /* Inbound Dir as speccified in LamPOP: \tcpip\etc\mail            */
  6. /* Inbound Dir for UltiMail Server:     \tcpip\umail\server\inbox  */
  7. /* UltiMail program directory:          \tcpip\umail               */
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. Say "This REXX script will poll the inbound directory for new POP mail"
  13. Say "every 60 seconds. Press Ctrl-C to terminate ..."
  14. do forever
  15.    '@for %%a in (\tcpip\etc\mail\*.pop) do \tcpip\umail\umailer -dest \tcpip\umail\server\inbox -to vowe < %%a && del %%a'
  16.    call SysSleep 60
  17. end
  18.