home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / workbench / hypertext_dtc / arexx / mail.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-10-27  |  1.3 KB  |  61 lines
  1. /*
  2. ** $PROJECT: HyperText-DataType-System
  3. **
  4. ** $VER: mail.rexx 40.3 (27.10.96)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1996 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: Stefan.Ruppert@informatik.fh-wiesbaden.de
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 27.10.96 : 040.003 : use rexxdossupport.library
  15. ** 21.09.96 : 040.002 : verbose option added
  16. ** 19.09.96 : 040.001 : initial
  17. **
  18. */
  19.  
  20. Options Results
  21.  
  22. Parse Arg args
  23.  
  24. /* --------------------------- needed libraries --------------------------- */
  25.  
  26. Call AddLib('rexxsupport.library',0,-30,0)
  27. Call AddLib('rexxdossupport.library',0,-30,0)
  28.  
  29. /* -------------------------- customize section --------------------------- */
  30.  
  31.  
  32. mailer     = 's:startup-email'
  33.  
  34. subjectitem= 'SUBJECT '
  35. emailitem  = ''
  36.  
  37. /* ------------------------ end customize section ------------------------- */
  38.  
  39. If ReadArgs(args,'EMAIL/A,SUBJECT,VERBOSE/S','MAIL.') Then Do
  40.    email   = Strip(mail.email)
  41.    subject = Strip(mail.subject)
  42.  
  43.    emailargs  = emailitem || email
  44.    subjectargs= subjectitem || '"' || subject || '"'
  45.  
  46.    cmd        = mailer || ' ' || emailargs || ' ' || subjectargs
  47.  
  48.    If mail.verbose Then Do
  49.       Say 'EMail   : ' || email
  50.       Say 'Subject : ' || subject
  51.       Say
  52.       Say 'Run     : ' || cmd
  53.    End
  54.    Else Do
  55.       cmd = cmd || ' >NIL:'
  56.    End
  57.  
  58.    Address Command cmd
  59. End
  60.  
  61.