Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r544 -r690
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 544)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 690)
@@ -28,21 +28,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="LogExceptie">
+<Method name="LogEnMailExceptie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
 <Implementation><![CDATA[
 	Set Logger = ..%New("Exceptie")
-	
+	Do Logger.ErrorMail(Exceptie.GeefOmschrijving(),..GeefExceptieInfo(Exceptie))
+]]></Implementation>
+</Method>
+
+<Method name="LogExceptie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
+<Implementation><![CDATA[
+	Set Logger = ..%New("Exceptie")	
+	Do Logger.Error(Exceptie.GeefOmschrijving(),..GeefExceptieInfo(Exceptie))
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptieInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		
 	#dim Info As %String = "TrapHandler: "_$ETrap_$C(13,10)
 	Set Info = Info_"Device: "_$I_"  Job: "_$J_$C(13,10)
 	Set Info = Info_"Server: "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"  NameSpace: "_$ZU(5)_$C(13,10)
 	Set Info = Info_"GebruikerID: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()_$C(13,10)
 	Set Info = Info_"GebruikerInitialen: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()_$C(13,10)
 	Set Info = Info_"ComputerNaam: "_##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()_$C(13,10)
 	Set Info = Info_Exceptie.ToString()
-	
-	Do Logger.ErrorMail(Exceptie.GeefOmschrijving(),Info)
+	Quit Info
 ]]></Implementation>
 </Method>