Index: DOM/CRM/impl/ConsOLNieuwsbriefReg.cls.xml
===================================================================
diff -u -r1075 -r1264
--- DOM/CRM/impl/ConsOLNieuwsbriefReg.cls.xml	(.../ConsOLNieuwsbriefReg.cls.xml)	(revision 1075)
+++ DOM/CRM/impl/ConsOLNieuwsbriefReg.cls.xml	(.../ConsOLNieuwsbriefReg.cls.xml)	(revision 1264)
@@ -39,6 +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.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 	Set ..Email = Email
 	Set ..Regio = Regio
 	Set ..Website = Website