home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / net.zip / net_mail / main / 1000.0 next >
Text File  |  1994-02-04  |  584b  |  20 lines
  1. Arg window self
  2.  
  3. /* Get item value  Multi-Line Entry Field */
  4. message = VpGetItemValue(window,1001)
  5. /* Get item value  Combo Box */
  6. userid = VpGetItemValue(window,1006)
  7.  
  8. if message = '' then do
  9.   response=VpMessageBox(window,'Lan Response','There is no message to send to user:  'userid)
  10.   return
  11. end
  12.  
  13. /* send the message and get the response from the lan which will */
  14. /* be placed within the queue */
  15. address cmd 'net send 'userid message' | RXQUEUE' id 
  16. do queued()
  17.   parse pull data
  18.   if data <> '' then
  19.     response=VpMessageBox(window,'Lan Response',data)
  20. end