Index: EWRCPS.mac.rou
===================================================================
diff -u -r45654 -r69838
--- EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 45654)
+++ EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 69838)
@@ -281,7 +281,8 @@
  ...Set TCnt=TCnt+1,Text(TCnt)="~"_TTOENr_"|"_$J($P(^KPR(PRNr,0),D),26)_" |"
  ...Set Text(TCnt)=Text(TCnt)_$$EXTNUM^vhLib.DataTypes(Aantal,10,".T",0)_"|"_$$EXTNUM^vhLib.DataTypes(BackOrd,10,".T",0)
  ...Set RCnt=RCnt+1,Ref(RCnt)="PR\"_PRNr_"\R\O"
- .Set MailId=$$SYSTEM^vhMAIL("","Ontvangst goederen","","OV",.Text,.Ref,1,1)
+ .Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("","Ontvangst goederen","Ontvangst goederen","OV",.Text,.Ref,1,1)
+ .;Set MailId=$$SYSTEM^vhMAIL("","Ontvangst goederen","","OV",.Text,.Ref,1,1)
  Quit
  
  ; Producmanagement