🚀 go-pugleaf

Comment:   Begin User Supplied Mail Headers.
*Site:     NASA Goddard Space Flight Center - Greenbelt, Maryland, USA.
*From:     John J. McMahon, Systems Programmer, STX - ST Systems Corporation.
*Project:  COBE Science Data Room (CSDR), Code 401.1
*Reply-To: (Arpa-Internet)       XRJJM%CSDR.SPAN@JPL-VLSI.ARPA
*Reply-To: (Bitnet)              ZMJJM@SCFVM
*Reply-To: (Span/Physnet/Hepnet) 6173::XRJJM = CSDR::XRJJM (Node 6.29)
*Reply-To: (TEXnet)              UTADNX::UTSPAN::CSDR::XRJJM

Unfortunately, the documenation of the 2 primary MAIL files 
(SYS$SYSTEM:VMSMAIL.DAT and MAIL.MAI) is severely lacking, the information
I have was derived from the fiche.

Anyhow SYS$EXAMPLES:MAILUAF.COM is a good basis for getting info out
of VMSMAIL.DAT (And the number of new mail messages is stored in there).
I would advise that if you are using MAILUAF that you remove the /WRITE
qualifiers from the OPEN statements (Better safe than sorry).

This is an excerpt from a program I posted to INFO-VAX recently,
It should report back all of the messages currently waiting.
(Usual disclaimers apply).

$ User[0,31] := 'F$GETJPI(0,"USERNAME")'
$ sysmail = "SYS$SYSTEM:VMSMAIL.DAT"
$ open /share /read  file 'sysmail' 
$ read /index=0  /key="''User'" file record
$ MESSAGES = F$CVUI(33*8,8,RECORD)
$ WRITE Sys$Output "You have ",messages," messages waiting."
$ Close file

Hope this helps the Vanilla VMS mail folk out!
Regards,
^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
John J. McMahon (Fast-Eddie)                     
Disclaimer: Views expressed in this letter are my own, 
            and are not meant to represent the views of my employers.