home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / ALLSCRPT.ZIP / MAIL.SCR < prev    next >
Encoding:
Text File  |  1987-10-17  |  1.8 KB  |  65 lines
  1. .GEnie Automatic Mail Upload Script for Qmodem SST 3.0 +
  2. .MAIL.SCR by Steven Aldridge (GEnie Address S.ALDRIDGE)
  3. .Invoke the script with Alt-F when asked the parameters
  4. .enter TIME as 00:00:00 then the file name then the
  5. .GEnie address to send to then the subject(no spaces).
  6. .There must be one space between each parameter.
  7.  
  8. note Script to access GEnie and UPLOAD a letter
  9. GOTO $1-A
  10. -A:
  11. note   You must enter the time to initiate the call
  12. note       and the filename to upload !!
  13. note
  14. note      UPLOAD SCRIPT IS ABORTING !! SORRY
  15. RETURN
  16. $1-A:
  17. beep 2000
  18. beep 1000
  19. note            TIME to Initiate Call    "$0"
  20. note            File to Send   C:\PCW\"$1"
  21. note            Address to Send To      "$2"
  22. note            Subject   "$3"
  23. beep 2000
  24. beep 1000
  25. send "~~~~~~~~~"
  26. TURNOFF XON\XOFF NOISE
  27. WAITUNTIL $0
  28. RETRY:
  29. DIAL "1"  .enter your GEnie dialing directory # cannot have attc. script
  30. TIMEOUT 10 NOGENIE
  31. SEND "H~H~H"
  32. WAITFOR "U#="
  33. TIMEOUT 60 ERROR
  34. SEND "~????????,????,200{" .enter your ID# and password here
  35. WAITFOR "<H>elp?"
  36. SEND "~C{"
  37. WAITFOR "P 200?"
  38. SEND "~4{"
  39. WAITFOR "to send your mail"
  40. WAITFOR "To:"
  41. SEND "~$2~{"
  42. WAITFOR "Carbon Copy:"
  43. SEND "S.ALDRIDGE{"   .enter your mail address here
  44. WAITFOR "Sub:"
  45. SEND "$3{"
  46. WAITFOR "READY FOR INPUT"
  47. UPLOAD C:\PCW\$1 A 2 2 >  .change this directory to match your system
  48. BREAK
  49. WAITFOR ">"
  50. SEND "~*S{"
  51. WAITFOR "P 200?"
  52. SEND "~BYE{"
  53. RETURN
  54. NOGENIE:
  55. NOTE           GEnie Unavailable
  56. HANGUP
  57. RETURN
  58. ERROR:
  59. NOTE                     E R R O R ! ! !
  60. NOTE         one or more of the parameters entered may be invalid.
  61. NOTE         check dos path and ensure the to address is correct.
  62. HANGUP
  63. RETURN
  64.