home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma52.dms / ma52.adf / AWEBsendYAMmai.lha / AWEBsendYAMmail.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-04-21  |  1.1 KB  |  43 lines
  1. /* awebsendYAMmail  ©1996 ALeX Kazik*/
  2. OPTIONS RESULTS
  3. PARSE ARG mailto pubscreen
  4.  
  5. IF ~SHOW('P','YAM') THEN DO  
  6.     ADDRESS COMMAND 'run <>NIL: YAM:YAM'
  7.     i = 15
  8.     DO UNTIL (SHOW('P','YAM')) | (i=0)
  9.         ADDRESS COMMAND 'Wait 1'
  10.         i = i - 1
  11.     END
  12.     IF ~SHOW('P','YAM') THEN DO  
  13.         ADDRESS COMMAND 'RequestChoice <>NIL: "Error" "Could''nt find/start YAM!" "OK" PUBSCREEN'pubscreen
  14.         EXIT
  15.     END
  16. END
  17.  
  18. ADDRESS 'YAM'
  19. WriteMailTo mailto
  20. ADDRESS COMMAND 'ed "T:WriteMail.tmp" WINDOW "RAW:0/15/640/465/MailTo: 'mailto'/CLOSE/SCREEN'pubscreen'" WITH "awebsendYAMmail.ed"'
  21. IF EXISTS("T:WriteMail.tmp")=0 THEN
  22.   EXIT
  23. CALL OPEN(4,'T:WriteMail.tmp',r)
  24. CALL OPEN(5,'T:SendMail.tmp',w);
  25. line = readln(4)
  26. PARSE VAR line 'Subject:' subject
  27. IF subject='' THEN
  28.   subject='Unknown'
  29. WriteSubject subject
  30. DO UNTIL EOF(4)
  31.   line = READLN(4)
  32.   CALL WRITELN(5,line)
  33. END
  34. CALL CLOSE(4)
  35. CALL CLOSE(5)
  36. WriteLetter 'T:SendMail.tmp'
  37. WriteQueue
  38. setfolder 1
  39. ADDRESS COMMAND 'delete <>NIL: T:WriteMail.tmp'
  40. ADDRESS COMMAND 'delete <>NIL: T:SendMail.tmp'
  41.  
  42. ADDRESS COMMAND 'RequestChoice <>NIL: "All Done." "Thanks for using awebsendYAMmail." "©1996 ALeX Kazik" PUBSCREEN'pubscreen
  43.