home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / comms / yam1.0 / rexx / sendamail.rexx < prev   
OS/2 REXX Batch file  |  1996-02-14  |  818b  |  34 lines
  1. /* sendamail.rexx - send email from AMosaic using YAM
  2.    Installation:
  3.      Copy SendAMail.rexx to S:
  4.      Protect S:SendAMail.rexx +s
  5.      Add the line 'sendmail S:SendAMail.rexx' to ENV:mosaic/prefs
  6. */
  7.  
  8. tmpfile = 'T:SendAMail.tmp'
  9. IF ~SHOW('Ports','YAM') THEN DO
  10.   ADDRESS 'COMMAND'
  11.   'Run YAM:YAM NOCHECK HIDE'
  12.   'SYS:RexxC/WaitForPort YAM'
  13. END
  14. IF SHOW('Ports','YAM') THEN DO
  15.   IF OPEN(out,tmpfile,'write') THEN DO
  16.     line = READLN(STDIN); PARSE VAR line 'To: 'rcpt
  17.     line = READLN(STDIN); PARSE VAR line 'Subject: 'subj
  18.     CALL READLN(STDIN)
  19.     CALL READLN(STDIN)
  20.     DO WHILE ~EOF(STDIN)
  21.       CALL WRITELN(out,READLN(STDIN))
  22.     END
  23.     CALL CLOSE(out)
  24.     ADDRESS 'YAM'
  25.     WriteMailTo rcpt
  26.     WriteSubject subj
  27.     WriteLetter tmpfile
  28.     WriteSend
  29.     ADDRESS COMMAND 'Delete >NIL: 'tmpfile
  30.   END
  31. END
  32.  
  33.  
  34.