Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r1598 -r1624
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1598)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1624)
@@ -164,12 +164,12 @@
 	. Do blFlowOfferte.SetOfferteStatus("W")
 	. Set Status=blFlowOfferte.Save()
 	.  ;d WL^vhDBG(oOfferte.%Id())
-	. Do blFlowOfferte.Send2OrderVerwerking()
+	. Do:..MailEachOrder blFlowOfferte.Send2OrderVerwerking()
 	. ;Do:Status=1 WL^vhDBG("Flow.Offerte ID:"_oOfferte.%Id())
 	. ;Do:Status'=1 WL^vhDBG("Flow.Offerte saveerror:"_$$ParseStatus^vhLib(Status))
 	. If Status'=1 Do AddErrorToLog^BL.EC.Common("EDI", "XML2Offerte", Status,"Opslaan Flow.Offerte"_$$ObjToText^vhLib(blFlowOfferte.oOfferte))
 	. Kill %blFlowOfferte
-	;Do ..Mail2OrderVerwerking(OrderCnt)
+	Do ..Mail2OrderVerwerking(OrderCnt)
 	
 	Quit
 ]]></Implementation>
@@ -235,10 +235,7 @@
 	Set Body(1)="~Aantal orders: "_Aantal
 	Set Link=1
 	Set Link(1)="KL\"_..KLNr_"\R"
-	If ..KLNr=$$$KlantSFS Set EMailGroep = ##class(TECH.Config.ConfigMgr).Instance().GetString("ScanEDIMail_SFS")
-	Else  Set EMailGroep = ##class(TECH.Config.ConfigMgr).Instance().GetString("ScanEDIMail_EmailGroep") ; JCL EMailGroep in config item
-	;If ..DebugMode Set EMailGroep="jcl"
-	;Else  Set EMailGroep="SCANEDIMAIL" ;$$EMailGroep^KLOPV(..KLNr,"ORDVW") ; enkel naar "JRO;NBR" CW 18.05.10
+	Set EMailGroep=$$EMailGroep^KLOPV(..KLNr,"SCANEDIMAIL")
 	Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,EMailGroep,.Body,.Link,"U")
 ]]></Implementation>
 </Method>