Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r50842 -r50844
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 50842)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 50844)
@@ -303,22 +303,19 @@
 <Implementation><![CDATA[
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	#dim PartijId As DOM.common.PartijID = "K||"_KLNr
-	#dim GebruikerInitialen, GebruikerId As %String
-	#dim Gebruiker As DOM.common.Gebruiker
-	#dim MailTo As %String = ""
+	#dim GebruikerInitialen, GebruikerId, GebruikerEmail As %String
 	#dim BestemmelingList As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(Bestemmelingen, ";")
 	#dim BestemmelingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BestemmelingList)
 	
 	While BestemmelingIterator.HasNext() {
 		Set GebruikerInitialen = BestemmelingIterator.Next()
 		Set GebruikerId = $$GeefUserIDViaInitialen^vhUSER(GebruikerInitialen)
-		Set MailTo = MailTo_##class(TECH.StringUtils).ToLower($P(^vhUSER("D",GebruikerId,"M"),"\",13))_";"
+		Set GebruikerEmail = ##class(TECH.StringUtils).ToLower($P(^vhUSER("D",GebruikerId,"M"),"\",13))
+		Do Mail.VoegToeOntvanger(GebruikerEmail)
 	}
-	Set MailTo = $Extract(MailTo,1,*-1)
 	
 	Do Mail.ZetIsHTML($$$True)
 	Do Mail.ZetVerzender($$$SystemMail("Klant "_..VerkoopApi.GeefKlant(PartijId).GeefNaam()))
-	Do Mail.VoegToeOntvanger(MailTo)
 	Do Mail.ZetOnderwerp(Titel)
 	Do Mail.ZetInhoud(Body)