Index: vhDeploy/JCL/D20110823x1328.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/D20110823x1328.cls.xml	(revision 0)
+++ vhDeploy/JCL/D20110823x1328.cls.xml	(revision 1854)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.D20110823x1328">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Instellen config item BedrijfsrondleidingInfoMailTo</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Sleutel="BedrijfsrondleidingInfoMailTo"
+	if '##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel) {
+		set Waarde = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+		do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,Waarde)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/Stat/Bedrijfsrondleiding.cls.xml
===================================================================
diff -u -r1074 -r1854
--- BL/Stat/Bedrijfsrondleiding.cls.xml	(.../Bedrijfsrondleiding.cls.xml)	(revision 1074)
+++ BL/Stat/Bedrijfsrondleiding.cls.xml	(.../Bedrijfsrondleiding.cls.xml)	(revision 1854)
@@ -136,7 +136,8 @@
 	}
 	do Body.Rewind()
 
-	do SendMiniMail^vhLib($$$SystemMail("Bedrijfsrondleidings Info"),$lb("isi"),"Info bedrijfsrondleiding",Body,1)
+	Set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("BedrijfsrondleidingInfoMailTo"))
+	do SendMiniMail^vhLib($$$SystemMail("Bedrijfsrondleidings Info"),MailTo,"Info bedrijfsrondleiding",Body,1)
 	Quit
 ]]></Implementation>
 </Method>