Index: WS/Blum/OnlineProductConfigurator.cls.xml
===================================================================
diff -u -r31560 -r31812
--- WS/Blum/OnlineProductConfigurator.cls.xml	(.../OnlineProductConfigurator.cls.xml)	(revision 31560)
+++ WS/Blum/OnlineProductConfigurator.cls.xml	(.../OnlineProductConfigurator.cls.xml)	(revision 31812)
@@ -59,9 +59,13 @@
 </Method>
 
 <Method name="LogEnMailExceptie">
-<FormalSpec>Exception:TECH.Exceptions.Exception</FormalSpec>
+<FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
+<Implementation><![CDATA[
+	if Exceptie.%ClassName(1) = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%ClassName(1) {
+		do SendMiniMail^vhLib($$$SystemMail("BLUM-OP"),"AdminBlumOPC","Foutieve aanmelding BLUM-OPC - '"_Exceptie.GeefEmail()_"'(EOM)")
+	}
+	do ##class(vhLib.Logger).LogEnMailExceptie(Exceptie)
 ]]></Implementation>
 </Method>
 
Index: APPS/Blum/OnlineProductConfigurator/impl/EmailExceptie.cls.xml
===================================================================
diff -u -r29059 -r31812
--- APPS/Blum/OnlineProductConfigurator/impl/EmailExceptie.cls.xml	(.../EmailExceptie.cls.xml)	(revision 29059)
+++ APPS/Blum/OnlineProductConfigurator/impl/EmailExceptie.cls.xml	(.../EmailExceptie.cls.xml)	(revision 31812)
@@ -28,6 +28,12 @@
 <Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).InvalidUserInput()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEmail">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..Email
+]]></Implementation>
+</Method>
 </Class>