Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r50138 -r50140
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 50138)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 50140)
@@ -38,8 +38,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ExceptionLogger">
+<Type>AXimpl.MessageInProcessor.ExceptionLogger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileApi:TECH.File.FileAPI="",XmlCorrelater:TECH.XMLCorrelater="",EventRaiser:AXimpl.EventRaiser="",ConfigIn:AXimpl.ConfigIn="",VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
+<FormalSpec>FileApi:TECH.File.FileAPI="",XmlCorrelater:TECH.XMLCorrelater="",EventRaiser:AXimpl.EventRaiser="",ConfigIn:AXimpl.ConfigIn="",VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository="",MailApi:TECH.Mail.MailAPI="",ExceptionLogger:AXimpl.MessageInProcessor.ExceptionLogger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -52,6 +57,7 @@
 	Set ..VerwerkBestandOpnieuwAanvraagRepository = $$$Inject(VerwerkBestandOpnieuwAanvraagRepository, ##class(VerwerkBestandOpnieuwAanvraagRepository).%New())
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..ExceptionLogger = $$$Inject(ExceptionLogger, ##class(AXimpl.MessageInProcessor.ExceptionLogger).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -105,7 +111,7 @@
 					Do ..RegistreerVerwerkBestandOpnieuwAanvraag(FullFilename)
 	 			} Else {
 					Set VerwerkVolgende = $$$False
-					Do ..LogException(FullFilename, Exception)
+					Do ..ExceptionLogger.LogException(FullFilename, Exception)
 					Do ..EventRaiser.RaiseCorruptedRequestReceivedEvent(FullFilename, ..FileApi.GeefFileReader(FullFilename).GeefStream())
 					Do ..MoveFileToErrorMap(FullFilename , SubPath)
 					Do ..MarkeerVerwerkBestandOpnieuwAanvraagVerwerkt(FullFilename)
@@ -148,18 +154,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="LogException">
-<FormalSpec>FullFilename:%String,Exception:TECH.IException</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim ExceptionMessage As %Stream.Object = ##class(%GlobalCharacterStream).%New()
-	Do ExceptionMessage.WriteLine("Filename : " _FullFilename)
-	Do ExceptionMessage.WriteLine("")
-	Do ExceptionMessage.CopyFrom(Exception.ToStream())
-	Do ..Logger.ErrorMail("Verwerking inkomende AX bestand", ExceptionMessage)
-]]></Implementation>
-</Method>
-
 <Method name="RegistreerVerwerkBestandOpnieuwAanvraag">
 <FormalSpec>Filenaam:%String</FormalSpec>
 <Private>1</Private>