Index: vhConsistency/Checks/Email.cls.xml
===================================================================
diff -u -r1327 -r2435
--- vhConsistency/Checks/Email.cls.xml	(.../Email.cls.xml)	(revision 1327)
+++ vhConsistency/Checks/Email.cls.xml	(.../Email.cls.xml)	(revision 2435)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="vhConsistency.Checks.Email">
 <Description>
-JBL + 2011-05-18 </Description>
+JBL + 2011-05-18 
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(0,1,"vhConsistency.Checks.Email")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -21,7 +22,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	
-	Set ..SkipCheck = 1
+	Set ..SkipCheck = 0
 	Set Status = $$$OK
 	If ('..SkipCheck){
 		Set:'..CheckKlanten() Status = $$$ERROR($$$GeneralError,"Check klanten email gefaald")
@@ -106,7 +107,7 @@
 		If ('ValidMail){
 			Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
 			Set TellerNotValid = TellerNotValid + 1
-			Do ..VoegMeldingToe($C(9)_Email_" niet correct door "_Feedback_" voor : "_rset.Data("Melding"))
+			Do ..VoegMeldingToe($C(9)_"'"_$$LCVT^vhLib(Email)_"' niet correct door "_Feedback_" voor : "_rset.Data("Melding"))
 			Set Status = $$$ERROR($$$GeneralError,"Geen correct email door "_Feedback_": "_Email)
 		}		
 	}
@@ -138,7 +139,7 @@
 				Set ValidMail = ##class(TECH.Mail).Check(Mail, ..#DoeNsLookUp,..#CacheNsLookUp)
 				If ('ValidMail){
 					Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
-					Do ..VoegMeldingToe($C(9)_Regio_$C(9)_KlantLev.GeefNummer()_$C(9)_$$LCVT^vhLib(Mail)_$C(9)_" door "_Feedback)
+					Do ..VoegMeldingToe($C(9)_Regio_$C(9)_KlantLev.GeefNummer()_$C(9)_"'"_$$LCVT^vhLib(Mail)_"'"_$C(9)_" door "_Feedback)
 					Set TellerNotValid = TellerNotValid + 1			
 					Set Status = $$$ERROR($$$GeneralError,"Geen correct email "_KlantLev.GeefNummer()_" door "_Feedback_" : "_Mail)
 				}Else{