Index: EWORDS3b.mac.rou
===================================================================
diff -u -r29059 -r69841
--- EWORDS3b.mac.rou	(.../EWORDS3b.mac.rou)	(revision 29059)
+++ EWORDS3b.mac.rou	(.../EWORDS3b.mac.rou)	(revision 69841)
@@ -129,7 +129,8 @@
  Set Optie("LATER")="\D LATER^EWORDS3(MailId)"
  Set Ref(1)="KL\"_KLNr_"\R\",Ref(2)="REMBOVZ\"_KLNr_D
  Set Ref(3)="EWMSDEL\"_CONSNr_"\\;"_CUserId
- Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Bon "_CONSNr_" -> vrijgave",EmailGroep,.Tekst,.Ref,1,"",.Optie)
+ Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",KLNr,"Bon "_CONSNr_" -> vrijgave",EmailGroep,.Tekst,.Ref,1,"",.Optie)
+ ;Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Bon "_CONSNr_" -> vrijgave",EmailGroep,.Tekst,.Ref,1,"",.Optie)
  Set R=^ORDW("D",CONSNr),$P(R,D,7)=MailId,^ORDW("D",CONSNr)=R
  Quit
  ;