Index: cA350.mac.rou =================================================================== diff -u -r43431 -r51925 --- cA350.mac.rou (.../cA350.mac.rou) (revision 43431) +++ cA350.mac.rou (.../cA350.mac.rou) (revision 51925) @@ -122,7 +122,7 @@ ; MAILNR is volgnummer in ^MAIL (veld 101) S $ZT="TRAP^cAN000" ;voorlopig N A,B,C,MSG,OK,ZA,ZB,ZC,UQC,USC,IREF,UREF,UI1,AUTOMAIL,UFU,I,DATA,TO,CC,I4,FROM - S FROM=$$FROM ; S FROM="system@datam.be" + S FROM=$$FROM S AUTOMAIL=1 I '$D(UQC) D DMS^cAN000("UQC","USC","MAIL") S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=MAILNR