Index: EWORDF.mac.rou
===================================================================
diff -u -r67253 -r69840
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 67253)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 69840)
@@ -303,7 +303,8 @@
  Set:'$L(Status) Lnk=2,Lnk(2)="UL\"_CONSNr_"\P"
  #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,"Afhaling",Bestemmelingen,.Txt,.Lnk,"U","A")
+ Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",KLNr,"Afhaling",Bestemmelingen,.Txt,.Lnk,"U","A")
+ ;Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Afhaling",Bestemmelingen,.Txt,.Lnk,"U","A")
  Quit
  
  ; Errormeldingen