Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r49570 -r52417
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49570)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 52417)
@@ -14,6 +14,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendViaOfferteID">
+<FormalSpec>OfferteID:%String,Melding:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendViaOfferteID",OfferteID,Melding)
+]]></Implementation>
+</Method>
+
 <Method name="VerzendVoorGeslaagdOrder">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendVoorGeslaagdOrder",Offerte)
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r49570 -r52417
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49570)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 52417)
@@ -18,8 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteService">
+<Type>APPS.VKP.impl.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI,OfferteService:APPS.VKP.impl.OfferteService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,11 +33,21 @@
 	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
-	
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.VKP.impl.OfferteService).%New())
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendViaOfferteID">
+<FormalSpec>OfferteID:%String,Melding:%String</FormalSpec>
+<Implementation><![CDATA[
+		Do ##class(CHUI.Context).Instance().ZetHeeftUserInterface($$$False)
+		#Dim Offerte As APPS.VKP.impl.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+		Do ..Verzend(Offerte, Melding)
+]]></Implementation>
+</Method>
+
 <Method name="Verzend">
 <FormalSpec>Offerte:APPS.VKP.Offerte,Melding:%String</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r52181 -r52417
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 52181)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 52417)
@@ -48,8 +48,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Mailer">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",TransportService:APPS.EC.Transport.Service="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="",LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository="",OrderVrijgaveBepaler:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler="",AsynchroneOrderSluiter:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter=""</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",TransportService:APPS.EC.Transport.Service="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="",LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository="",OrderVrijgaveBepaler:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler="",AsynchroneOrderSluiter:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter="",Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -63,6 +68,8 @@
 	Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository, ##class(DOM.VKP.impl.LeverAdresRepository).%New())
 	Set ..OrderVrijgaveBepaler = $$$Inject(OrderVrijgaveBepaler, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler).%New())
 	Set ..AsynchroneOrderSluiter = $$$Inject(AsynchroneOrderSluiter, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter).%New())
+
+	Set ..Mailer = $$$Inject(Mailer, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -102,15 +109,13 @@
 		If $$$Not((Exception.GeefOmschrijving() [ "offerte") && (Exception.GeefOmschrijving() [ "is reeds besteld") ) {
 			Do ##class(TECH.ExceptionHandler).Throw(Exception)
 		} Else {
-			#dim Stream As %Stream.Object = ##class(%GlobalCharacterStream).%New()
-			Do Stream.WriteLine("De vorige verwerking is misschien niet goed verlopen, den dien dat 'het vlaggen' heeft zal het moeten controleren")
-			Do Stream.WriteLine("Hier is etwa data : ")
 			
-			#dim XmlStream As %Stream.Object = ##class(%GlobalCharacterStream).%New() 
-			Do ObjToXML^vhLib(BestelWinkelkarRequest,,,,.XmlStream)
-			Do Stream.CopyFrom(XmlStream)
+			#dim Melding As %String = "De offerte is reeds besteld, maar de vorige verwerking is misschien niet goed verlopen. "
+			Set Melding = Melding _"Controleer voor alle zekerheid de offerte op Vhisie4 en offerte en order in cache/admin ! "
+			Set Melding = Melding _$$$CRLF _$$ObjToXML^vhLib(BestelWinkelkarRequest)
 			
-			Do ##class(vhLib.Logger).%New().WarningMail("Bestelwinkelkar Redo", Stream)
+			Do ..Mailer.VerzendViaOfferteID(OfferteID, Melding)
+			Do ##class(vhLib.Logger).%New().WarningMail("Bestelwinkelkar Retry", Melding)
 		}
 	}
 	
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r49570 -r52417
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49570)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 52417)
@@ -13,6 +13,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendViaOfferteID">
+<FormalSpec>OfferteID:%String,Melding:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerzendVoorGeslaagdOrder">
 <FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <Implementation><![CDATA[