Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r32518 -r50842
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 32518)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 50842)
@@ -27,6 +27,29 @@
 <Type>BL.Flow.Offerte.Parser.AbstractParser</Type>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Verwerker:APPS.common.EDI.EDIVerwerker="",MailApi:TECH.Mail.MailAPI="",VerkoopApi:DOM.VKP.VerkoopAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefSubPath">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -213,7 +236,8 @@
  	Set Bestemmelingen = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID).GeefInterneVerantwoordelijkeEnBackups() 
 	Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,Bestemmelingen,.Body,.Link,"U")
 	
-	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Admin-mail gestuurd naar de gebruikers :"_Bestemmelingen_".")
+	Do ..VerstuurOutlookMail(..KLNr, Titel, Bestemmelingen, .Body)
+	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Admin- en Outlook-mail gestuurd naar de gebruikers :"_Bestemmelingen_".")
 
 	Quit
 ]]></Implementation>
@@ -272,6 +296,35 @@
 	Quit $G(Number)
 ]]></Implementation>
 </Method>
+
+<Method name="VerstuurOutlookMail">
+<FormalSpec><![CDATA[KLNr:%Numeric,Titel:%String,Bestemmelingen:%String,&Body:%String]]></FormalSpec>
+<Private>1</Private>
+<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 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 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)
+	
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>