home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Internet / News-Email / Transports / taylor / DoMail < prev    next >
Text File  |  1994-09-19  |  965b  |  35 lines
  1. | > DoMail
  2. |
  3. | Syntax: DoMail <Filename> <Addresses>
  4. |
  5. | DoMail passes the specified file through Rmail. It performs no error
  6. | checking on the file, and assumes that the file contains a valid header.
  7. |
  8. | Author:           Gunnar Zötl
  9. | Date:                17-Sep-1994
  10. | Last Modified:    19-Sep-1994
  11. |
  12. | Ensure enough memory for rmail to run, you may need more when using smail
  13. |
  14. Wimpslot -min 640k
  15. |
  16. | this gets around a problem with the C library, which sometimes seems
  17. | confused then receiving a <system$variable> together with I/O redirection.
  18. |
  19. Set Alias$DoMailIt rmail %*1 < %0
  20. |
  21. | we assume that sending the mail will succeed.
  22. |
  23. Set NewsBase$ReturnInfo Mail sent
  24. DoMailIt
  25. Set NewsBase$ReturnCode <Sys$ReturnCode>
  26. |
  27. | If sending did not succeed, we alter the Info for NewsBase here.
  28. |
  29. If "<NewsBase$ReturnCode>" <> "0" Then Set NewsBase$ReturnInfo Mail failed
  30. |
  31. | now remove the file sendmail passed us, and unset the helper macro.
  32. |
  33. remove %0
  34. unset alias$DoMailIt
  35.