Index: DOM/CRM/impl/ConsOLNieuwsbriefReg.cls.xml
===================================================================
diff -u -r1264 -r1298
--- DOM/CRM/impl/ConsOLNieuwsbriefReg.cls.xml	(.../ConsOLNieuwsbriefReg.cls.xml)	(revision 1264)
+++ DOM/CRM/impl/ConsOLNieuwsbriefReg.cls.xml	(.../ConsOLNieuwsbriefReg.cls.xml)	(revision 1298)
@@ -39,8 +39,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <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)
 	}
 	Set ..Email = Email