Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r51873 -r69834
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 51873)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 69834)
@@ -228,15 +228,17 @@
 	$$$InitOldLocals
 	New Titel,Body,Link,KLNr,KlantID,Bestemmelingen,MailId
 	Set Titel="Import EDI voor klant '"_..KLNr_"' - ga naar Verwerken Aanvragen in Admin. "
+	Set Body=""
 	Set Body(1)="~Aantal orders: "_listOfferteIDs.Size
 	Set Link=1
 	Set Link(1)="KL\"_..KLNr_"\R"
 	if listOfferteIDs.Size = 1 Set Link(2)="FLOWOFF\"_listOfferteIDs.GetAt(1)_"\I"
 	#dim KlantID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(..KLNr)
  	Set Bestemmelingen = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID).GeefInterneVerantwoordelijkeEnBackups() 
-	Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,Bestemmelingen,.Body,.Link,"U")
+	Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",..KLNr,Titel,Bestemmelingen,.Body,.Link,"U")
+	;Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,Bestemmelingen,.Body,.Link,"U")
 	
-	Do ..VerstuurOutlookMail(..KLNr, Titel, Bestemmelingen, .Body)
+	;Do ..VerstuurOutlookMail(..KLNr, Titel, Bestemmelingen, .Body)
 	Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Admin- en Outlook-mail gestuurd naar de gebruikers :"_Bestemmelingen_".")
 
 	Quit