Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r49493 -r49570
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49493)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49570)
@@ -12,6 +12,12 @@
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendVoorGeslaagdOrder">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r49494 -r49570
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49494)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49570)
@@ -65,6 +65,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendVoorGeslaagdOrder">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Offerte.GeefKlantID())	
+
+	#dim Titel As %String = "Offerte met OfferteID '" _Offerte.GeefID() _"' van KlantID '" _ Offerte.GeefKlantID() _ "' is automatisch verwerkt!"
+	#dim BestelReferentie As %String = Offerte.GeefDocumentReferenties().OrderReferentie
+	#dim CommissieReferentie As %String = Offerte.GeefDocumentReferenties().CommissieReferentie
+
+	#dim Inhoud As %String = "Vhisie4 Offerte is automatisch verwerkt!"
+	Do ..VoegToeAanInhoud(.Inhoud, "Bestel referentie : ", BestelReferentie)
+	Do ..VoegToeAanInhoud(.Inhoud, "Commissie referentie : ", CommissieReferentie)
+
+
+	#dim MailToPrefix As %String = ..ConfigMgr.GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix")
+	#dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)	
+	
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("OV"))
+	Do Mail.ZetOnderwerp(Titel)
+	Do Mail.ZetInhoud(Inhoud)
+	Do Mail.ZetIsHTML($$$True)
+
+	Do Mail.VoegToeOntvanger(MailTo)
+	Do Mail.VoegToeOntvangerCC("DTI@VanHoecke.be")
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerwerkVhisie4OfferteLink">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r49493 -r49570
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49493)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49570)
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Verzend",Offerte,Melding)
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendVoorGeslaagdOrder">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendVoorGeslaagdOrder",Offerte)
+]]></Implementation>
+</Method>
 </Class>