cwewmail ; ;[ 10/13/1999  3:56 PM ]
 Quit
 ;
 Set Q="K"
 Do ^cA604
 Set MailId=73000,Count=0
 For  Set MailId=$o(^vhMAIL("D",MailId)) Quit:MailId=""  Do
 .Set R=$G(^vhMAIL("D",MailId,"R",1))
 .Quit:R'="PR\11967\R\"
 .Set R=$G(^vhMAIL("D",MailId,"T",1))
 .Quit:R'="Stockupdate voor product 558.5001   K RE*1017*  ZN"
 .Set R=$G(^vhMAIL("D",MailId,"T",5))
 .Quit:R'="~Reden : C/C 8475"
 .Set Count=Count+1
 .Do DELOBJ^vhMAIL(MailId)
 Quit
 ;