Index: vhEMAIL.mac.rou
===================================================================
diff -u -r1264 -r1298
--- vhEMAIL.mac.rou	(.../vhEMAIL.mac.rou)	(revision 1264)
+++ vhEMAIL.mac.rou	(.../vhEMAIL.mac.rou)	(revision 1298)
@@ -20,7 +20,8 @@
 	  If ('ValidMail){
 	 	 /// ValidMail kan geforceerd worden.
 	 	 If ($Get(%ShowMailPopup)){
-	 	 	Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email)
+		 	Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+	 	 	Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email,Feedback)
 	 	 }	
 	 	 Set:'ValidMail Check = ValidMail 	 
 	  }