Index: vhMAIL.mac.rou
===================================================================
diff -u -r1610 -r1620
--- vhMAIL.mac.rou	(.../vhMAIL.mac.rou)	(revision 1610)
+++ vhMAIL.mac.rou	(.../vhMAIL.mac.rou)	(revision 1620)
@@ -20,6 +20,7 @@
  .If Input="COM" Do MENU
  .If Input="SPEC" Do SPEC
  .If Input="S" Do SCREEN
+ .If Input="U",'$$IsGroep^vhUSER(CUserId,"BOEKH") Quit
  .Do EXEC^vhMenu("MAIL",.Input)
  .If $P(Input,";")="A" Quit:Input="A"  Set ArchTyp=$P(Input,";",2),Input="A"
  .If "AOUV"[Input,$L(Input) Do MAILTYP(CUserId,Input)
@@ -254,10 +255,10 @@
 FUMAIL(CUserId,MailTyp,Sort) 
  New I,R,MailId,Count,FArchTyp,LArchTyp,IndexTyp,UserIds
  Set Sort=$G(Sort)
- Quit:'$$IsGroep^vhUSER(CUserId,"BOEKH;3")
+ Quit:'$$IsGroep^vhUSER(CUserId,"BOEKH")
  Do CLEAN
  Set Count=0
- Set UserIds=$$USERID^vhUSER("BOEKH;3")
+ Set UserIds=$$USERID^vhUSER("BOEKH")
  For  Set CUserId=$P(UserIds,";") Quit:'CUserId  Do
  .Set UserIds=$P(UserIds,";",2,99)
  .If '$L(Sort) Do