home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / orionful.zip / Menus / Sendemail.Srx < prev    next >
Text File  |  1996-03-11  |  275b  |  16 lines
  1. /*
  2.  * Send Email Procedure
  3.  */
  4.  
  5. /* Get line #; used in all functions as first arg */
  6. ARG Line
  7.  
  8. /* Set your email message area # */
  9.  
  10. Email_area = 2
  11.  
  12. AdeptCls(Line)        
  13. AdeptMessage(Line, 3, Email_Area, '')
  14. AdeptWrite(Line, 1, 2, '')
  15. AdeptMessage(Line, 3, 1, '')
  16.