Index: vhDeploy/Deploy20180108xMoetGefaaldeAxRequestMelden.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20180108xMoetGefaaldeAxRequestMelden.cls.xml	(revision 0)
+++ vhDeploy/Deploy20180108xMoetGefaaldeAxRequestMelden.cls.xml	(revision 49052)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20180108xMoetGefaaldeAxRequestMelden">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Moet gefaalde AX request melden</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "MoetGefaaldeAxRequestMelden"
+	
+	If ($$$Not(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel))) {
+		If (($$$Server = "CACHE01") || ($$$Server = "CACHEACCEPT2010")) {
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(Sleutel, $$$True)
+		} Else {
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(Sleutel, $$$False)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/RequestComposer/ExceptieMelder.cls.xml
===================================================================
diff -u -r48904 -r49052
--- AXimpl/RequestComposer/ExceptieMelder.cls.xml	(.../ExceptieMelder.cls.xml)	(revision 48904)
+++ AXimpl/RequestComposer/ExceptieMelder.cls.xml	(.../ExceptieMelder.cls.xml)	(revision 49052)
@@ -30,12 +30,18 @@
 <Method name="VerwittigGebruiker">
 <FormalSpec>MessageId:%String,Action:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Gebruiker As DOM.common.VanHoeckeGebruiker = ..GebruikerApi.GeefGebruiker(##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID())
-	#dim Onderwerp As %String = "Actie '" _ Action _ "' gefaald"
-	#dim Inhoud As %String = "De actie '" _ Action _ "' is gefaald." _ $$$CRLF _ $$$CRLF _ "MessageId: " _ MessageId
+	#dim MoetGefaaldeAxRequestMelden As %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("MoetGefaaldeAxRequestMelden")
 	
-	If $$$Not(Gebruiker.GeefInitialen() = "SYS") {
-		Do ..VerstuurMail("AX RequestComposer", Gebruiker.GeefEmailAdres(), Onderwerp, Inhoud)
+	If (MoetGefaaldeAxRequestMelden) {
+		#dim Gebruiker As DOM.common.VanHoeckeGebruiker = ..GebruikerApi.GeefGebruiker(##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID())
+		#dim GebruikerInitialen As %String = Gebruiker.GeefInitialen()
+	
+		If $$$Not(GebruikerInitialen = "SYS") && $$$Not(GebruikerInitialen = "") && $$$Not(Gebruiker.GeefEmailAdres() = "") {
+			#dim Onderwerp As %String = "Actie '" _ Action _ "' gefaald"
+			#dim Inhoud As %String = "De actie '" _ Action _ "' is gefaald." _ $$$CRLF _ $$$CRLF _ "MessageId: " _ MessageId
+		
+			Do ..VerstuurMail("AX RequestComposer", Gebruiker.GeefEmailAdres(), Onderwerp, Inhoud)
+		}
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml
===================================================================
diff -u -r48930 -r49052
--- vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml	(.../Test.cls.xml)	(revision 48930)
+++ vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml	(.../Test.cls.xml)	(revision 49052)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Parameter name="Sleutel">
+<Type>%String</Type>
+<Default>MoetGefaaldeAxRequestMelden</Default>
+</Parameter>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -18,8 +23,36 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt gemeld aan Gebruiker">
+<Method name="Test: Gebruiker wordt opgehaald indien ConfigItem dit toelaat">
 <Implementation><![CDATA[
+	Do ..AssertGebruikerWordtOpgehaald($$$True, $$$True)
+	Do ..AssertGebruikerWordtOpgehaald($$$False, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGebruikerWordtOpgehaald">
+<FormalSpec>MoetGefaaldeAxRequestMelden:%Boolean,MoetGebruikerOpgehaaldWorden:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(..#Sleutel, MoetGefaaldeAxRequestMelden, ..#Applicatie)
+	
+	#dim GebruikerStub As vhTest.Mock.DOM.common.VanHoeckeGebruiker = ##class(vhTest.Mock.DOM.common.VanHoeckeGebruiker).%New()
+	Do GebruikerStub.IndienMethodCall("GeefInitialen").DanReturn("")
+	
+	#dim GebruikerApiMock As vhTest.Mock.DOM.common.GebruikerAPI = ##class(vhTest.Mock.DOM.common.GebruikerAPI).%New()
+	Do GebruikerApiMock.VerwachtMethodCall("GeefGebruiker", ..GebruikerId).ExactAantalKeer(MoetGebruikerOpgehaaldWorden).DanReturn(GebruikerStub)
+	
+	#dim ExceptieMelder As AXimpl.RequestComposer.ExceptieMelder = ##class(AXimpl.RequestComposer.ExceptieMelder).%New(GebruikerApiMock, "")
+	Do ExceptieMelder.VerwittigGebruiker("RandomMessageId", "RandomAction")
+	
+	Do GebruikerApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test:Exceptie wordt gemeld indien de Gebruiker gekend is en niet-SYS">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(..#Sleutel, $$$True, ..#Applicatie)
+	
 	#dim GebruikerInitialen As %String = "DUM"
 	#dim EmailAdres As %String = "dummy@vanhoecke.be"
 	
@@ -51,6 +84,8 @@
 
 <Method name="Test: Exceptie wordt niet gemeld indien Gebruiker is SYS">
 <Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(..#Sleutel, $$$True, ..#Applicatie)
+	
 	#dim GebruikerInitialen As %String = "SYS"
 	
 	#dim GebruikerMock As vhTest.Mock.DOM.common.VanHoeckeGebruiker = ##class(vhTest.Mock.DOM.common.VanHoeckeGebruiker).%New()