Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r1133 -r1168
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 1133)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 1168)
@@ -187,7 +187,8 @@
 	}
 	If (i > 1)
 	{
-		Do SendMiniMail^vhLib($$$SystemMail("Frees Admin"),$ListBuild($$$IctSysOp),"Generatie errors freesbestanden",Body,0,1)
+		Set MailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+		Do SendMiniMail^vhLib($$$SystemMail("Frees Admin"),$ListBuild(MailTo),"Generatie errors freesbestanden",Body,0,1)
 		Set %J=$$%J^vhRtn1()
 		Kill ^HULP(%J)
 		Merge ^HULP(%J) = Tekst
Index: WS/CRM/impl/Interacties/Logger.cls.xml
===================================================================
diff -u -r1074 -r1168
--- WS/CRM/impl/Interacties/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1074)
+++ WS/CRM/impl/Interacties/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1168)
@@ -23,7 +23,8 @@
 <FormalSpec><![CDATA[&From:%String,&lbTo:%List,&Subj:%String,SubjInfo:%String="Error"]]></FormalSpec>
 <Implementation><![CDATA[
 	set From = $$$SystemMail("Web Admin")
-	set lbTo = $listbuild($$$IctSysOp)
+	Set MailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+	set lbTo = $listbuild(MailTo)
 	quit $$$OK
 ]]></Implementation>
 </Method>
Index: csp/vhliblogging.cls.xml
===================================================================
diff -u -r1074 -r1168
--- csp/vhliblogging.cls.xml	(.../vhliblogging.cls.xml)	(revision 1074)
+++ csp/vhliblogging.cls.xml	(.../vhliblogging.cls.xml)	(revision 1168)
@@ -7,6 +7,7 @@
 <IncludeCode>vhLib.Macro,vhLib.cspError</IncludeCode>
 <Language>cache</Language>
 <Super>%CSP.Page</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="CustomEHandlerInit">
 <ClassMethod>1</ClassMethod>
@@ -15,14 +16,13 @@
 <Language>cache</Language>
 <ReturnType/>
 <Implementation><![CDATA[
- 		#define EmailTo   $$$IctSysOp
- 		;#define EmailTo   "wv@vanhoecke.be"
- 
+ 		Set EmailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+ 	   
  		Do ##class(csp.vhLibError).DefaultEHandlerInit(.lbErrTypes)
  		Set cspMailOnError=0   ; ##class(TECH.Config.ConfigMgr).GetString(...) 
  		If cspMailOnError {
  			Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("Email","ErrPage")
- 			Set %cspEHandler($$$etPageLoadError,"ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1)
+ 			Set %cspEHandler($$$etPageLoadError,"ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB(EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1)
  			Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.vhLibError","OnPageMinimum")
  		}
  		Else {
@@ -31,7 +31,6 @@
  		}
  		
  		Quit
- 
 ]]></Implementation>
 </Method>
 
@@ -469,7 +468,6 @@
  
  	Set CspPageTitle="VH LOGGING"
  	Quit 1
- 
 ]]></Implementation>
 </Method>
 
Index: WS/Web/OLParticulier/impl/Logger.cls.xml
===================================================================
diff -u -r1074 -r1168
--- WS/Web/OLParticulier/impl/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1074)
+++ WS/Web/OLParticulier/impl/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1168)
@@ -24,7 +24,8 @@
 <FormalSpec><![CDATA[&From:%String,&lbTo:%List,&Subj:%String,SubjInfo:%String="Error"]]></FormalSpec>
 <Implementation><![CDATA[
 	set From = $$$SystemMail("Web Admin")
-	set lbTo = $listbuild($$$IctSysOp)
+	Set MailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+	set lbTo = $listbuild(MailTo)
 	quit $$$OK
 ]]></Implementation>
 </Method>