Index: vhTest/Fake/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(revision 41079)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur</Super>
+
+<Method name="MailMeldingenNaarOV">
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r41030 -r41079
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41030)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41079)
@@ -18,8 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Rapporteur">
+<Type>APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder,Vhisie4WinkelkarConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</FormalSpec>
+<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder,Vhisie4WinkelkarConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder,Rapporteur:APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..KlantBepaler = $$$Inject(KlantBepaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New())
 	Set ..FlowOfferteConverteerder = $$$Inject(FlowOfferteConverteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder).%New())
 	Set ..Vhisie4WinkelkarConverteerder = $$$Inject(Vhisie4WinkelkarConverteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New())
+	Set ..Rapporteur = $$$Inject(Rapporteur, ##class(APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New())
 
 	quit $$$OK
 ]]></Implementation>
@@ -57,6 +63,7 @@
 		Set Webshop.ID = ..Vhisie4WinkelkarConverteerder.Converteer(UserCart, Klant.Klant)		
 		Set Webshop.Taal = Klant.Klant.GeefTaal()
 		Set Webshop.Type = "Vhisie4"
+		Do ..Rapporteur.MailMeldingenNaarOV(..Vhisie4WinkelkarConverteerder.GeefMeldingen(), UserCart.userName, Klant.Klant.GeefID())
 	}	
 	
 	Quit Webshop
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u -r41030 -r41079
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41030)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41079)
@@ -41,10 +41,16 @@
 	Set KlantBepalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New()
 	Do KlantBepalerMock.VerwachtMethodCall("GeefKlant", Winkelkar).DanReturn(Klant)
 	
+	Set MeldingenDummy = ##class(%ListOfDataTypes).%New()
+	
 	Set ConverteerderMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New()
 	Do ConverteerderMock.VerwachtMethodCall("Converteer", Winkelkar, Klant.Klant).DanReturn("HoofdingID")
-	
-	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerMock, ,ConverteerderMock)
+	Do ConverteerderMock.VerwachtMethodCall("GeefMeldingen").DanReturn(MeldingenDummy)
+
+	Set RapporteurMock =##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New()
+	Do RapporteurMock.VerwachtMethodCall("MailMeldingenNaarOV",MeldingenDummy,Winkelkar.userName ,Klant.Klant.GeefID()).DanDoeNiks()
+
+	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerMock, , ConverteerderMock, RapporteurMock)
 	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop = ConfiguratorService.VoegToeAanWinkelkar(Winkelkar)
 	
 	Do $$$AssertEquals(Webshop.ID, "HoofdingID")
@@ -53,6 +59,7 @@
 
 	Do KlantBepalerMock.Verifieer()
 	Do ConverteerderMock.Verifieer()
+	Do RapporteurMock.Verifieer()
 ]]></Implementation>
 </Method>
 
Index: APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml
===================================================================
diff -u
--- APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(revision 0)
+++ APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(revision 41079)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur">
+<Super>TECH.Mockable</Super>
+
+<Property name="MailAPI">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<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.Context).Instance().GeefMailAPI())
+
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MailMeldingenNaarOV">
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+	if (Meldingen.Count() > 0) {
+		#dim Mail As TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
+		Do Mail.ZetOnderwerp("BLUM OPC - meldingen bij het verwerken van een winkelkar.")
+		Do Mail.ZetVerzender("BLUMOPC@vanhoecke.be")
+		Do Mail.VoegToeOntvanger($$$SystemMail("OV"))
+		Do Mail.ZetIsHTML($$$False)
+		Do Mail.ZetInhoud(..MaakMailInhoud(Meldingen, UserName, KlantID))
+		Do Mail.ZetOmleiden($$$False)
+		Do ..MailAPI.VerstuurMail(Mail)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakMailInhoud">
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Inhoud As %String = "Er zijn fouten opgetreden bij het opzoeken van producten!" _$$$CRLF
+	Set Inhoud = Inhoud _"KlantID : " _KlantID _$$$CRLF
+	Set Inhoud = Inhoud _"Email : " _UserName _$$$CRLF _$$$CRLF
+	#dim MeldingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Meldingen)
+	While MeldingenIterator.HasNext() {
+		Set Inhoud = Inhoud _MeldingenIterator.Next() _$$$CRLF _$$$CRLF
+	}
+	Quit Inhoud
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(revision 41079)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="MailMeldingenNaarOV">
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MailMeldingenNaarOV",Meldingen,UserName,KlantID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>