Index: BL/Legacy/FLOW.cls.xml
===================================================================
diff -u -r48853 -r48857
--- BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 48853)
+++ BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 48857)
@@ -3,6 +3,11 @@
 <Class name="BL.Legacy.FLOW">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="MagUitvoerenLRECALC">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Orderlijn:DOM.VKP.ProductOrderlijn,PrijsInfo:APPS.VKP.dto.PrijsInfo,PrijsAanduiding:DOM.VKP.enu.PrijsAanduiding</FormalSpec>
@@ -48,6 +53,33 @@
 	Quit MagHerrekenen
 ]]></Implementation>
 </Method>
+
+<Method name="%OnNew">
+<FormalSpec>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.Mail.MailAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerstuurMail">
+<FormalSpec>VerzenderNaam:%String,Ontvanger:%String,Onderwerp:%String,Inhoud:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	
+	Do Mail.ZetVerzender($$$SystemMail(VerzenderNaam))
+	Do Mail.VoegToeOntvanger(Ontvanger)
+	Do Mail.ZetOnderwerp(Onderwerp)
+	Do Mail.ZetInhoud(Inhoud)
+	
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/BL/Legacy/FLOW/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Legacy/FLOW/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Legacy/FLOW/Test.cls.xml	(revision 48857)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Legacy.FLOW.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: MailApi wordt opgeroepen bij oproepen VerstuurMail method">
+<Implementation><![CDATA[
+	#dim RandomVerzenderNaam As %String = "RandomVerzenderNaam"
+	#dim RandomOntvanger As %String = "RandomOntvanger"
+	#dim RandomOnderwerp As %String = "RandomOnderwerp"
+	#dim RandomInhoud As %String = "RandomInhoud"
+	
+	#dim MailMock As vhTest.Mock.TECH.Mail.Mail = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetVerzender", """" _ RandomVerzenderNaam _ """ <AdminCACHE@vanhoecke.be>")
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger", RandomOntvanger)
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp", RandomOnderwerp)
+	Do MailMock.VerwachtMethodCall("ZetInhoud", RandomInhoud)
+	
+	#dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailMock).DanDoeNiks()
+	
+	#dim LegacyFlow	As BL.Legacy.FLOW = ##class(BL.Legacy.FLOW).%New(MailApiMock)
+	Do LegacyFlow.VerstuurMail(RandomVerzenderNaam, RandomOntvanger, RandomOnderwerp, RandomInhoud)
+	
+	Do MailMock.Verifieer()
+	Do MailApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>