home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 June / BUYER_696.iso / internet / ameol / ameolnt / mailfile.sc_ / mailfile.sc
Text File  |  1994-04-30  |  765b  |  23 lines
  1. REM MAILFILE.SCR v1.12 "Mail a local file"
  2. REM Contributed by mentha@cix
  3. REM Ameol script to send a local text file as mail.
  4. REM It is recommended that individual mail files are kept to below 64k
  5. REM and line lengths below 255 otherwise bits may get lost.
  6. REM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  7. status "Sending local mail file..."
  8. put "opt term width 255 q"
  9. waitfor ":"
  10. put "upl"
  11. upload "%fo('Select File to Mail')"
  12. put "mail to %s('Mail a File', 'Enter mail destination:\n(Specify recipient\'s full Internet address for external mail)')"
  13. waitfor "Enter subject:"
  14. put "%s('Mail a File', 'Enter mail title:')"
  15. waitfor ":"
  16. put "q"
  17. waitfor "send/action:"
  18. put "send"
  19. waitfor "Ml:"
  20. put "q"
  21. waitfor "M:"
  22. status ""
  23. end