Index: DOM/common/VanHoeckeGebruiker.cls.xml
===================================================================
diff -u -r29059 -r48930
--- DOM/common/VanHoeckeGebruiker.cls.xml	(.../VanHoeckeGebruiker.cls.xml)	(revision 29059)
+++ DOM/common/VanHoeckeGebruiker.cls.xml	(.../VanHoeckeGebruiker.cls.xml)	(revision 48930)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.common.VanHoeckeGebruiker">
+<Abstract>1</Abstract>
 <Super>DOM.common.Gebruiker</Super>
 
 <Method name="GeefVhUserID">
Index: vhTest/Mock/DOM/common/VanHoeckeGebruiker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/common/VanHoeckeGebruiker.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/common/VanHoeckeGebruiker.cls.xml	(revision 48930)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.common.VanHoeckeGebruiker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.VanHoeckeGebruiker,vhTest.Mock.DOM.common.Gebruiker</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefCode")
+]]></Implementation>
+</Method>
+
+<Method name="GeefEmailAdres">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEmailAdres")
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikerBeheerder">
+<ReturnType>DOM.common.GebruikerBeheerder</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefGebruikerBeheerder")
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
+]]></Implementation>
+</Method>
+
+<Method name="GeefInitialen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefInitialen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNaam")
+]]></Implementation>
+</Method>
+
+<Method name="GeefRollen">
+<ReturnType>DOM.common.AuthorizatieRollen</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRollen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVhUserID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVhUserID")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml	(revision 48930)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.RequestComposer.ExceptieMelder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="GebruikerId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..GebruikerId = "RandomGebruikerId"
+	
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..GebruikerId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt gemeld aan Gebruiker">
+<Implementation><![CDATA[
+	#dim GebruikerInitialen As %String = "DUM"
+	#dim EmailAdres As %String = "dummy@vanhoecke.be"
+	
+	#dim GebruikerMock As vhTest.Mock.DOM.common.VanHoeckeGebruiker = ##class(vhTest.Mock.DOM.common.VanHoeckeGebruiker).%New()
+	Do GebruikerMock.VerwachtMethodCall("GeefInitialen").DanReturn(GebruikerInitialen)
+	Do GebruikerMock.VerwachtMethodCall("GeefEmailAdres").DanReturn(EmailAdres)
+	
+	#dim GebruikerApiMock As vhTest.Mock.DOM.common.GebruikerAPI = ##class(vhTest.Mock.DOM.common.GebruikerAPI).%New()
+	Do GebruikerApiMock.VerwachtMethodCall("GeefGebruiker", ..GebruikerId).DanReturn(GebruikerMock)
+	
+	#dim MailStub As vhTest.Mock.TECH.Mail.Mail = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailStub.IndienMethodCall("ZetVerzender", """AX RequestComposer"" <AdminCACHE@vanhoecke.be>").DanDoeNiks()
+	Do MailStub.IndienMethodCall("VoegToeOntvanger", EmailAdres).DanDoeNiks()
+	Do MailStub.IndienMethodCall("ZetOnderwerp", $$$ElkeWaarde).DanDoeNiks()
+	Do MailStub.IndienMethodCall("ZetInhoud", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailStub)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailStub).DanDoeNiks()
+	
+	#dim ExceptieMelder As AXimpl.RequestComposer.ExceptieMelder = ##class(AXimpl.RequestComposer.ExceptieMelder).%New(GebruikerApiMock, MailApiMock)
+	Do ExceptieMelder.VerwittigGebruiker("RandomMessageId", "RandomAction")
+	
+	Do GebruikerMock.Verifieer()
+	Do GebruikerApiMock.Verifieer()
+	Do MailApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt niet gemeld indien Gebruiker is SYS">
+<Implementation><![CDATA[
+	#dim GebruikerInitialen As %String = "SYS"
+	
+	#dim GebruikerMock As vhTest.Mock.DOM.common.VanHoeckeGebruiker = ##class(vhTest.Mock.DOM.common.VanHoeckeGebruiker).%New()
+	Do GebruikerMock.VerwachtMethodCall("GeefInitialen").DanReturn(GebruikerInitialen)
+	Do GebruikerMock.VerwachtMethodCall("GeefEmailAdres").Nooit()
+	
+	#dim GebruikerApiMock As vhTest.Mock.DOM.common.GebruikerAPI = ##class(vhTest.Mock.DOM.common.GebruikerAPI).%New()
+	Do GebruikerApiMock.VerwachtMethodCall("GeefGebruiker", ..GebruikerId).DanReturn(GebruikerMock)
+	
+	#dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").Nooit()
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", $$$ElkeWaarde).Nooit()
+	
+	#dim ExceptieMelder As AXimpl.RequestComposer.ExceptieMelder = ##class(AXimpl.RequestComposer.ExceptieMelder).%New(GebruikerApiMock, MailApiMock)
+	Do ExceptieMelder.VerwittigGebruiker("RandomMessageId", "RandomAction")
+	
+	Do GebruikerMock.Verifieer()
+	Do GebruikerApiMock.Verifieer()
+	Do MailApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>