Index: vhUnitTest/APPS/Halux/PPS/AansturingService/AansturingServiceMock.cls.xml
===================================================================
diff -u -r29059 -r58740
--- vhUnitTest/APPS/Halux/PPS/AansturingService/AansturingServiceMock.cls.xml	(.../AansturingServiceMock.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/PPS/AansturingService/AansturingServiceMock.cls.xml	(.../AansturingServiceMock.cls.xml)	(revision 58740)
@@ -3,6 +3,10 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.AansturingService.AansturingServiceMock">
 <Super>APPS.Halux.PPS.impl.AansturingService</Super>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+</Property>
+
 <Property name="ActieUitvoerder">
 <Type>APPS.Halux.PPS.impl.Aansturing.AansturingActieUitvoerder</Type>
 </Property>
@@ -11,10 +15,22 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
-	set ..ActieUitvoerder = ##class(vhUnitTest.APPS.Halux.PPS.AansturingService.AansturingActieUitvoerderMock).%New()
-	quit ..ActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
+	Set ..ActieUitvoerder = ##class(vhUnitTest.APPS.Halux.PPS.AansturingService.AansturingActieUitvoerderMock).%New(, ..MailApi)
+	Quit ..ActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
 ]]></Implementation>
 </Method>
+
+<Method name="%OnNew">
+<FormalSpec>ActiviteitGroepValidator:APPS.Halux.PPS.impl.AansturingService.ActiviteitGroepValidator="",ActiviteitGroepenBepaler:APPS.Halux.PPS.Aansturing.ActiviteitGroepenBepaler="",AansturingActieUitvoerder:APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder="",AansturingActieUitvoerderVoorRework:APPS.Halux.PPS.Aansturing.AansturingActieUitvoerder="",AansturingStatusResetter:APPS.Halux.PPS.Aansturing.AansturingStatusResetter="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MailApi = MailApi
+	Quit ##super(ActiviteitGroepValidator, ActiviteitGroepenBepaler, AansturingActieUitvoerder, AansturingActieUitvoerderVoorRework, AansturingStatusResetter)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerderVoorRework.cls.xml
===================================================================
diff -u -r29059 -r58740
--- APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerderVoorRework.cls.xml	(.../AansturingActieUitvoerderVoorRework.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerderVoorRework.cls.xml	(.../AansturingActieUitvoerderVoorRework.cls.xml)	(revision 58740)
@@ -9,13 +9,13 @@
 </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[
-	Do ##super(.BackgroundProcessStarter)
+	Do ##super(.BackgroundProcessStarter, MailApi)
 	Set ..AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New()
 	Quit $$$OK
 ]]></Implementation>
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>
Index: vhUnitTest/APPS/Halux/PPS/AansturingService/TestAansturingService.cls.xml
===================================================================
diff -u -r29059 -r58740
--- vhUnitTest/APPS/Halux/PPS/AansturingService/TestAansturingService.cls.xml	(.../TestAansturingService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/PPS/AansturingService/TestAansturingService.cls.xml	(.../TestAansturingService.cls.xml)	(revision 58740)
@@ -159,7 +159,13 @@
 
 	#dim BatchID As %String = 9999
 	
-	set ActieService = ##class(vhUnitTest.APPS.Halux.PPS.AansturingService.AansturingServiceMock).%New()
+	#dim MailDummy = ##class(TECH.Mail.impl.Mail).%New()
+	
+	#dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailDummy)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailDummy).DanDoeNiks()
+	
+	set ActieService = ##class(vhUnitTest.APPS.Halux.PPS.AansturingService.AansturingServiceMock).%New(,,,,,MailApiMock)
 	set ActieParameters = ##class(%ListOfDataTypes).%New()
 	
 	do ActieService.VoerUitAansturingActieVoorBatch(BatchID,..ActiviteitGroepIDs.GetAt(1),..ActieIDs.GetAt(1),ActieParameters)
@@ -185,6 +191,8 @@
 	Do ..VerwijderActies()
 	
 	Do ..VerwijderActiviteitGroepen()
+	
+	Do MailApiMock.Verifieer()
 ]]></Implementation>
 </Method>