home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / wpbif094.zip / strtBiff.cmd < prev    next >
OS/2 REXX Batch file  |  1997-06-12  |  1KB  |  42 lines
  1. /* rexx */
  2.  
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', "RexxUtil", "SysLoadFuncs"
  5. call SysLoadFuncs
  6.  
  7. parse source . . src_prog
  8.  
  9. icon=filespec("drive", src_prog)||filespec("path", src_prog)||"mail_0.ico"
  10.  
  11. obj_id='<WP_PM_MAIL>'
  12.  
  13.  
  14. rc=SysCreateObject('WPProgram','vit@ifshop', '<WP_DESKTOP>','EXENAME=s:\tcpip\pmmail\pmmail.exe;STARTUPDIR=s:\tcpip\pmmail\mail\vit;"ICONFILE="||icon||";OBJECTID=<WP_PM_MAIL>','u')
  15. if \rc then do
  16.  say "Object was not created:("
  17.  /* return 1; */
  18. end
  19.  
  20. env='OS2ENVIRONMENT'
  21.  
  22. icon1=filespec("drive", src_prog)||filespec("path", src_prog)||"mail_1.ico"
  23. icon_err=filespec("drive", src_prog)||filespec("path", src_prog)||"mail_err.ico"
  24.  
  25. crlf=x2c('0d')||x2c('0a')
  26. setlocal
  27. call value 'POP3_HOST','ns',env
  28. call value 'POP3_USER','vit',env
  29. call value 'POP3_PASS',',kzv,f',env
  30. call value 'POP3_INTERVAL','10',env
  31. call value 'POP3_WPS_OBJECT',obj_id,env
  32. call value 'POP3_NO_MAIL_ICON',icon,env
  33. call value 'POP3_MAIL_ICON',icon1,env
  34. call value 'POP3_ERROR_ICON',icon_err,env
  35. call value 'POP3_NO_MSGS_TITLE',"ìÑΓ ¡¿τÑú«",env
  36. call value 'POP3_1_MSG_TITLE',"Äñ¡« »¿ß∞¼«"crlf"ñ½∩ "||value('POP3_USER',,env)||"@"||value('POP3_HOST',,env),env
  37. call value 'POP3_MSGS_TITLE',"éßÑú« %d »¿ßѼ"||crlf||"ñ½∩ "||value('POP3_USER',,env)||"@"||value('POP3_HOST',,env),env
  38.  
  39. 'detach Biff.exe'
  40. endlocal
  41.  
  42.