home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
clipper
/
nannws14.arc
/
EMAILR.PRG
next >
Wrap
Text File
|
1987-04-15
|
558b
|
22 lines
*** open mail file shared ***
NET_USE("mail", .F. , 0)
*** find a message that was not received yet ***
LOCATE FOR dest = GETE("NETNAME") .AND. .NOT. received
DO WHILE .NOT. EOF()
? "Message From: ", sender
? "Date, time : ", sdate, stime
? "Message : ", message
*** set receipt statistics ***
REC_LOCK(0)
REPLACE rdate WITH DATE(), rtime WITH TIME(), RECEIVED WITH .T.
UNLOCK
*** pause then continue to next message, if any ***
WAIT
CONTINUE
ENDDO
*** Close file and continue with application ***
USE
RETURN