Index: EWBON4.mac.rou
===================================================================
diff -u -r38658 -r69839
--- EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 38658)
+++ EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 69839)
@@ -11,7 +11,8 @@
  Set Lnk(1)="KL\"_KLNr_"\R"
  #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
  Set Bestemmelingen = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID).GeefInterneVerantwoordelijkeEnBackups() 
- Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Expeditie voor : "_CONSNr,Bestemmelingen,.Tekst,.Lnk,"U","A") 
+ Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",KLNr,"Expeditie voor : "_CONSNr,Bestemmelingen,.Tekst,.Lnk,"U","A") 
+ ;Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Expeditie voor : "_CONSNr,Bestemmelingen,.Tekst,.Lnk,"U","A") 
  Quit
  ;
  ;