Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r1292 -r1298
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1292)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1298)
@@ -261,8 +261,10 @@
 <Method name="ZetEmail">
 <FormalSpec>Email:%String</FormalSpec>
 <Implementation><![CDATA[
-	If ('##class(TECH.Mail).Check(Email,1)){
-		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ParameterInvalid(),"Het email adres "_Email_" is niet geldig.")
+	Set ValidMail = ##class(TECH.Mail).Check(Email,1)
+	If ('ValidMail){
+		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+		Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).ParameterInvalid(),"Het email adres "_Email_" is niet geldig. "_Feedback)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	Do ..Klant.ZetEmail(Email)