Index: cspBasis/SOAPlib.mac.rou
===================================================================
diff -u -r22 -r108
--- cspBasis/SOAPlib.mac.rou	(.../SOAPlib.mac.rou)	(revision 22)
+++ cspBasis/SOAPlib.mac.rou	(.../SOAPlib.mac.rou)	(revision 108)
@@ -1,6 +1,6 @@
  
 #include %occInclude
-#include %VHMacro
+#include vhLib.Macro
 #include BL.Sys.FOP.Common
  
  
@@ -63,19 +63,18 @@
 	Set Body=Body_$$$CRLF_"Device: "_$I_"  Job: "_$J
 	Set Body=Body_$$$CRLF_"Server: "_$$$Server_"  NameSpace: "_$$$NSpace
  
-	;Set Body=$G(Body,"Msg: "_msg)
-#If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()'?1(1"PROD",1"DMZ-PROD")) 
-	Do   ; Send to SoapSysOp or FopSysOp if not Cache02,  else replace by "WV"   ; only on WWW;  
-	. New i
-	. Set i=$LF(lbTo,"ICT_SOAPSysOp@vanhoecke.be")
-	. Set:(i>0) $LI(lbTo,i)="WV@vanhoecke.be"
-	. Set i=$LF(lbTo,"ICT_FOPSysOp@vanhoecke.be")
-	. Set:(i>0) $LI(lbTo,i)="WV@vanhoecke.be"
-	Do   ; Send to DynaPlugSysOp if not Cache02,  else replace by "TR"   ; only on WWW;  
-	. New i
-	. Set i=$LF(lbTo,"ICT_DynaPlugSysOp@vanhoecke.be")
-	. Set:(i>0) $LI(lbTo,i)="jcl@vanhoecke.be"
-#EndIf
+	Set RerouteTo = $$$Trim(##class(TECH.Config.ConfigMgr).Instance().GetString("cspBasis.SOAPlib_RerouteMailTo"))
+	If $L(RerouteTo) {
+		// Send to "WV" instead of "ICT_SoapSysOp" or "ICT_FopSysOp" or "ICT_DynaPlugSysOp" 
+		New i
+		Set i=$LF(lbTo,"ICT_SOAPSysOp@vanhoecke.be")
+		Set:(i>0) $LI(lbTo,i)=RerouteTo
+		Set i=$LF(lbTo,"ICT_FOPSysOp@vanhoecke.be")
+		Set:(i>0) $LI(lbTo,i)=RerouteTo
+		Set i=$LF(lbTo,"ICT_DynaPlugSysOp@vanhoecke.be")
+		Set:(i>0) $LI(lbTo,i)=RerouteTo
+	}
+ 
 	Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,Body,$G(BodyIsStream,0))
 	If 'sc   ; Set errmsg=$$ParseStatus^vhLib(sc)_" From="_From
 	Quit