Index: svn/Deploy.cls.xml
===================================================================
diff -u -r1724 -r1749
--- svn/Deploy.cls.xml	(.../Deploy.cls.xml)	(revision 1724)
+++ svn/Deploy.cls.xml	(.../Deploy.cls.xml)	(revision 1749)
@@ -40,7 +40,7 @@
 		
 		do ..InitialiseRuntime()
 		
-		set ExecuteCode = 1
+		#dim ExecuteCode As %Boolean = 1
 		if (..#DoetDataWijzigingen) && ('##class(TECH.Config.ConfigMgr).Instance().GetBoolean("OmgevingMetData")) {
 			set ExecuteCode = 0
 		}
@@ -52,11 +52,14 @@
 				set ^svn.Deploy(..%ClassName(1))= ##class(TECH.DateTime).CurrentTimeStamp()	
 			}
 			Catch {
+				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 				Write !,"!!! AANDACHT !!!",!
 				Write "!!! Er is een fout opgetreden bij het uitvoeren van de deploy-klasse "_..%ClassName(1)_" !!!",!
-				Write "Foutmelding : "_##class(TECH.ExceptionHandler).Catch().GeefOmschrijving(),!
+				Write "Foutmelding : "_Exception.GeefOmschrijving(),!
 				Write ..%ClassName(1)," - ",..#Omschrijving," - is gefaald en wordt bij volgende getLatest opnieuw geprobeerd.",!
 				Write "!!! AANDACHT !!!",!,!
+				
+				do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
 			}
 		}
 	}