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