Index: FaxMail.mac.rou
===================================================================
diff -u -r1264 -r1298
--- FaxMail.mac.rou	(.../FaxMail.mac.rou)	(revision 1264)
+++ FaxMail.mac.rou	(.../FaxMail.mac.rou)	(revision 1298)
@@ -326,7 +326,8 @@
 	  Set ValidMail = ##class(TECH.Mail).Check(Email,0)
 	  If ('ValidMail){
 	 	 /// ValidMail kan geforceerd worden.
-	 	 Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email)
+	 	 Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+	 	 Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email,Feedback)
 	  }
 	  If (ValidMail) {
 		   If $G(Data("BackGround")){