Index: FLOW2.mac.rou
===================================================================
diff -u -r48611 -r69850
--- FLOW2.mac.rou	(.../FLOW2.mac.rou)	(revision 48611)
+++ FLOW2.mac.rou	(.../FLOW2.mac.rou)	(revision 69850)
@@ -313,7 +313,8 @@
  .Set Ref(1)="KL\"_KLNr_"\R\O"
  .For I=1:1:$L(ORDNrs,",") Set Ref(I+1)="ORD\"_$P(ORDNrs,",",I)_"\R\"
  .Set TUser=$$GeefBestemmelingenVoorCascadeAdminMail(KLNr)
- .Set R=$$SYSTEM^vhMAIL("KL",KLNr,"Orders -> afsluiten",TUser,.Tekst,.Ref,1)
+ .Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",KLNr,"Orders -> afsluiten",TUser,.Tekst,.Ref,1)
+ .;Set R=$$SYSTEM^vhMAIL("KL",KLNr,"Orders -> afsluiten",TUser,.Tekst,.Ref,1)
  Set MailId=$G(^VRIJGAVE(KLNr,"O")),ORDNr=$O(^VRIJGAVE(KLNr,"O",""))
  If MailId Do DELUSERS(MailId) Kill Link,^vhMAIL("D",MailId,"R",2),^vhMAIL("D",MailId,"S")
  If ORDNr="" Kill ^VRIJGAVE(KLNr,"O") ; Alles is vrijgegeven
@@ -368,7 +369,8 @@
  ...Set Count=Count+1,Tekst(Count)="~Deze leveringsbons zijn vrijgegeven en verzonden naar het WMS."
  .Set Ref(1)="KL\"_KLNr_"\R\O"
  .Set TUserId = $$GeefBestemmelingenVoorAdminMail(KLNr)
- .Set R=$$SYSTEM^vhMAIL("KL",KLNr,"Leveringsbons -> vrijgegeven",TUserId,.Tekst,.Ref,1)
+ .Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",KLNr,"Leveringsbons -> vrijgegeven",TUserId,.Tekst,.Ref,1)
+ .;Set R=$$SYSTEM^vhMAIL("KL",KLNr,"Leveringsbons -> vrijgegeven",TUserId,.Tekst,.Ref,1)
  Set MailId=$G(^VRIJGAVE(KLNr,"B")),CONSNr=$O(^VRIJGAVE(KLNr,"B",""))
  If MailId Do DELUSERS(MailId) Kill Link,^vhMAIL("D",MailId,"R",2),^vhMAIL("D",MailId,"R",3),^vhMAIL("D",MailId,"S")
  If CONSNr="" Kill ^VRIJGAVE(KLNr,"B") ; Alles is vrijgegeven of verwijderd