home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / clipper / nannws14.arc / EMAILR.PRG next >
Text File  |  1987-04-15  |  558b  |  22 lines
  1. *** open mail file shared ***
  2. NET_USE("mail", .F. , 0)
  3. *** find a message that was not received yet ***
  4. LOCATE FOR dest = GETE("NETNAME") .AND. .NOT. received
  5. DO WHILE .NOT. EOF()
  6.   ? "Message From: ", sender
  7.   ? "Date, time  : ", sdate, stime
  8.   ? "Message     : ", message
  9.   *** set receipt statistics ***
  10.   REC_LOCK(0)
  11.   REPLACE rdate WITH DATE(), rtime WITH TIME(), RECEIVED WITH .T.
  12.   UNLOCK
  13.   *** pause then continue to next message, if any ***
  14.   WAIT
  15.   CONTINUE
  16. ENDDO
  17. *** Close file and continue with application ***
  18. USE
  19. RETURN
  20.  
  21.  
  22.