home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / CManager / Rexx / SendYAM.rexx < prev   
OS/2 REXX Batch file  |  1998-11-13  |  896b  |  30 lines
  1. /********************************************************/
  2. /*  SendEMail.rexx 1.1 (10.3.98) by Jon Bristow         */
  3. /*                                                      */
  4. /* Script to send address to Yam2                       */
  5. /********************************************************/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. EVE_ENTERMSG = 0
  10.  
  11. PARSE ARG '"'Recipient'" "'Path'"'  /* parse args */
  12.  
  13. IF ~SHOW('P', 'YAM') THEN           /* check for yam2 */
  14. DO
  15.     ADDRESS COMMAND                 /* if not running,  */
  16.       'run <>nil:' Path             /* run and wait for */
  17.       "sys:rexxc/WaitForPort YAM"   /* for port         */
  18. END
  19.  
  20. Address 'YAM'
  21.  
  22. /* 'MAILCHECK' */               /* comment if you want yam to check mail */
  23.  
  24. 'SHOW'                          /* uniconify */
  25. 'MAILWRITE'                     /* mimic write button */
  26. 'WRITEMAILTO "'||Recipient||'"' /* to address */
  27.  
  28. Exit                
  29.  
  30.