Index: APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder.cls.xml
===================================================================
diff -u -r58637 -r58740
--- APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder.cls.xml	(.../AansturingActieUitvoerder.cls.xml)	(revision 58637)
+++ APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder.cls.xml	(.../AansturingActieUitvoerder.cls.xml)	(revision 58740)
@@ -3,6 +3,11 @@
 <Class name="APPS.Halux.PPS.impl.Aansturing.AansturingActieUitvoerder">
 <Super>TECH.RegisteredObject,APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder</Super>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AansturingStatusProvider">
 <Type>APPS.Halux.PPS.Aansturing.AansturingStatusProvider</Type>
 <Private>1</Private>
@@ -29,12 +34,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BackgroundProcessStarter:TECH.BackgroundProcessStarter</FormalSpec>
+<FormalSpec>BackgroundProcessStarter:TECH.BackgroundProcessStarter,MailApi:TECH.Mail.MailAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	
 	set ..AansturingActieDataProvider = ##class(APPS.Halux.PPS.impl.Aansturing.AansturingActieDataProvider).%New()
 	set ..AansturingActieSorteerder = ##class(APPS.Halux.PPS.impl.Aansturing.AansturingActieSorteerder).%New()
 	set ..AansturingStatusResetter = ##class(APPS.Halux.PPS.impl.Aansturing.AansturingStatusResetter).%New()
@@ -141,7 +148,7 @@
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ..LogExceptie(Exceptie,"VoerUitAansturingActieVoorBatch","ActieID: "_ActieID_$C(13,10)_"BatchID: "_BatchID_$C(13,10))
-		Do SendMiniMail^vhLib( $$$SystemMail("system"), $LB("planning_halux@vanhoecke.be"), "Batch '"_BatchID_"' heeft fouten !!!", "Opgelet : ActieID: '"_ActieID_"' voor BatchID: '"_BatchID_"' bevat fouten. Mogelijks zijn niet alle documenten correct afgedrukt!")
+		Do ..ZendMail(BatchID, ActieID)
 		set Resultaat = ##class(APPS.Halux.PPS.dto.ActieResultaat).%New()
 		Set Resultaat.Status = ##class(APPS.Halux.PPS.enu.AansturingStatus).AangestuurdMetFouten()
 		Set Resultaat.Opmerking = Exceptie.GeefOmschrijving()	
@@ -157,6 +164,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZendMail">
+<FormalSpec>BatchID:%String,ActieID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("system"))
+	Do Mail.ZetOnderwerp("Batch '"_BatchID_"' heeft fouten !!!")
+	Do Mail.ZetInhoud("Opgelet : ActieID: '"_ActieID_"' voor BatchID: '"_BatchID_"' bevat fouten. Mogelijks zijn niet alle documenten correct afgedrukt!")
+	Do Mail.ZetIsHTML($$$True)
+
+	Do Mail.VoegToeOntvanger("planning_halux@vanhoecke.be")
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
 <Method name="ZetUitvoeringParameters">
 <FormalSpec>Actie:APPS.Halux.PPS.impl.AansturingActie</FormalSpec>
 <Private>1</Private>