Index: AXimpl/MessageInProcessor.cls.xml
===================================================================
diff -u -r49635 -r49693
--- AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 49635)
+++ AXimpl/MessageInProcessor.cls.xml	(.../MessageInProcessor.cls.xml)	(revision 49693)
@@ -28,13 +28,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailAPI">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerwerkBestandOpnieuwAanvraagRepository">
 <Type>AXimpl.VerwerkBestandOpnieuwAanvraagRepository</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</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:AXimpl.EventRaiser,ConfigIn:AXimpl.ConfigIn,VerwerkBestandOpnieuwAanvraagRepository:AXimpl.VerwerkBestandOpnieuwAanvraagRepository,MailAPI:TECH.Mail.MailAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -46,6 +51,7 @@
 	Set ..ConfigIn = $$$Inject(ConfigIn,##class(AXimpl.ConfigIn).%New())
 	Set ..VerwerkBestandOpnieuwAanvraagRepository = $$$Inject(VerwerkBestandOpnieuwAanvraagRepository,##class(VerwerkBestandOpnieuwAanvraagRepository).%New())
 	Set ..Logger = ##class(vhLib.Logger).%New()
+	Set ..MailAPI = $$$Inject(MailAPI,##class(TECH.Context).Instance().GeefMailAPI())
 	
 	quit $$$OK
 ]]></Implementation>
@@ -93,7 +99,7 @@
 			try {
 				#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 				if Exception.%IsA(##class(AXimpl.VerwerkAXBerichtLaterOpnieuwException).%ClassName(1)) {
-					Do ..Logger.Info("Verwerk AX bericht '"_FullFilename_"' later opnieuw", Exception.ToString())
+					Do ..Logger.Info("Verwerk AX bericht '"_FullFilename_"' later opnieuw", Exception.GeefOmschrijving())
 					Do ..RegistreerVerwerkBestandOpnieuwAanvraag(FullFilename)
 	 			} else {				
 					Set VerwerkVolgende = $$$False
@@ -164,6 +170,9 @@
 		Set Aanvraag.Sinds = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
 	}
 	Set Aanvraag.Teller = Aanvraag.Teller + 1
+	if ((Aanvraag.Teller >= 300) && ((Aanvraag.Teller # 60) = 0)) {
+		Do ..StuurMailBerichtTeveelNietVerwerkt(Filenaam)
+	}
 	Do ..VerwerkBestandOpnieuwAanvraagRepository.Bewaar(Aanvraag)
 ]]></Implementation>
 </Method>
@@ -181,6 +190,21 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="StuurMailBerichtTeveelNietVerwerkt">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("AXimpl.MessageInProcessor"))
+	Do Mail.VoegToeOntvanger("ICT_Meldingen@vanhoecke.be")
+	Do Mail.ZetOnderwerp("AX bericht geraakt niet verwerkt")
+	#Dim MeldingTekst as %String = "Bericht in bestand '"_FullFilename _"' geraakt reeds meer dan 5 minuten niet verwerkt. Check de log om te zien waarom."
+	Do Mail.ZetInhoud("Beste,"_ $$$CRLF _ $$$CRLF _ MeldingTekst)
+	Do ..MailAPI.VerstuurMail(Mail)
+	Do ..Logger.Error("AXimpl.MessageInProcessor","Actie nodig:" _$$$CRLF _ MeldingTekst,0)
+]]></Implementation>
+</Method>
 </Class>