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