NetNews Usenet Archive 1993 #3/NN_1993_3.iso/spool/comp/os/vms/21957

Internet Message Format | 1993-01-25 | 1.4 KB

Path: sparky!uunet!haven.umd.edu!darwin.sura.net!ukma!netnews.louisville.edu!wkuvx1!waltoml
From: [e-mail]
Newsgroups: comp.os.vms
Subject: RE: How to repeat "new Mail message"??
Message-ID: <[e-mail]>
Date: 25 Jan 93 12:36:42 CST
Organization: Western Kentucky University, Bowling Green, KY
Lines: 39


Hi!
I understand you need a mailcounter that will show the "you have X new
mail messages" message when you execute it.  This small excerpt from a
command procedure I wrote called BIGRED.COM should do what you have
asked.  Feel free to modify it to suit your own needs.

Settummanque!

Mike Walton  ([e-mail])
former Assistant Area Coordinator/Information Manager
Greenwood, Kentucky

---------------------------cut here please------------------------------
$MAILCOUNT:
$!This simple thing only counts the number of mail messages you've received
$!since logging on. It won't (or at least in this version, anyways) let you
$!see who you received mail from:
$del3   :== delete
$Set term/nobroadcast
$define sys$output mailmsg.tmp
$!This creates a temporary file to read mail from:
$Mail
  Spawn Show Time
  Exit
$deassign sys$output
$close/nolog sys$output
$!This closes the temporary file
$set term/broadcast
$define/nolog sys$output tt:
$!We are now going to read what we "recorded"
$Say Bold
$type mailmsg.tmp
$!now to clean everything up:
$del3 mailmsg.tmp;*
$Say restore, co
$return
$EXIT