home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / cmanager / rexx / sendthor.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-09-25  |  1.3 KB  |  72 lines
  1. /*
  2.  *  SendEMail.rexx 1.0 (4.2.98) by Simone Tellini
  3.  */
  4.  
  5. MailSys = 'Demon'   /*  Set this two variables according to your needs */
  6. MailCnf = 'EMail'
  7.  
  8. /*
  9.     DON'T TOUCH THE FOLLOWING LINES
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. EVE_ENTERMSG = 0
  15.  
  16. PARSE ARG '"'Recipient'"'
  17.  
  18. GETENTRY Entry
  19.  
  20. IF ~SHOW('P', 'THOR.01') THEN
  21. DO
  22.     ADDRESS COMMAND
  23.       "run <>nil: Thor:Thor PUBSCREEN Workbench SYS" MailSys
  24.       "sys:rexxc/WaitForPort THOR.01"
  25. END
  26.  
  27. IF ~SHOW('P', 'BBSREAD') THEN
  28. DO
  29.     ADDRESS COMMAND
  30.       "run <>nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  31.       "sys:rexxc/WaitForPort BBSREAD"
  32. END
  33.  
  34. Address 'BBSREAD'
  35.  
  36. UNIQUEMSGFILE MailSys UNIQUE
  37.  
  38. Address 'THOR.01'
  39.  
  40. REQUESTSTRING TITLE '"Mail subject:"' BT '"_Ok|_Cancel"' MAXCHARS 256
  41.  
  42. Subj = result
  43.  
  44. if(rc ~= 0) then do
  45.     address command 'Delete >nil: '||'"'||UNIQUE.NAME||'"'
  46.     Exit
  47. End
  48.  
  49. Address Command 'Echo "" >'||UNIQUE.NAME
  50.  
  51. MAKESIGNATURE UNIQUE.NAME INCTAG
  52.  
  53. Drop EVENT.
  54.  
  55. EVENT.CONFERENCE = MailCnf
  56. EVENT.TONAME     = Entry.Name
  57. EVENT.TOADDR     = Recipient
  58. EVENT.SUBJECT    = Subj
  59. EVENT.MSGFILE    = UNIQUE.FILEPART
  60.  
  61. Address 'BBSREAD' WRITEBREVENT BBSNAME '"'MailSys'"' EVENT EVE_ENTERMSG STEM EVENT
  62.  
  63. if(rc ~= 0) then do
  64.     REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT "_Ok"
  65.     Address COMMAND 'Delete >nil: '||'"'||UNIQUE.NAME||'"'
  66.     Exit
  67. end
  68.  
  69. STARTEDITOR '"'UNIQUE.NAME'"'
  70.  
  71. Exit
  72.