Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r3232 -r3366
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3232)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3366)
@@ -233,7 +233,8 @@
 		Do ##class(vhLib.Logger).%New().LogEnMailExceptie(Exception)
 	} // Het log-item saven, is belangrijker dan de eventuele koppel-exceptie te behandelen.
 	#dim scSave As %Status = oLog.%Save()
-	
+	Set oLog.Detail = "Maak een nieuwe gekende exceptie"_$$$CRLF _ ..GeefMaakGekendeExceptieUrl(oLog) _ $$$CRLF_ $$$CRLF _ oLog.Detail
+
     #dim ServerPrefix As %String = "["_$$$UCase($$$Server)_"] "
 
 	#dim Subject As %String = ServerPrefix _ $S(Niveau="I":"Info",Niveau="E":"Error",Niveau="W":"Warning",Niveau="D":"Debug",1:"")_" - "
@@ -247,7 +248,8 @@
 		#dim Body As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
 		Do Body.WriteLine($$GetJobInfo^vhLib.System())
 		Do Body.WriteLine("")
-		Do Body.CopyFrom(oLog.GenMailBody())
+		;Do Body.CopyFrom(oLog.GenMailBody())
+		Do Body.WriteLine(oLog.Detail)
 		Do oLogger.GetMailFields(.From,.lbTo,.Subject,)
 		Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body,1,,,,)
 	}
@@ -258,6 +260,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMaakGekendeExceptieUrl">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ErrorLog:vhLib.Logging</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Url as %String = "http://"_ErrorLog.Server_"/cspauth/"_ErrorLog.Namespace_"/GekendeExceptieFromLogID.csp?LogID="_ErrorLog.GeefID()
+	Quit Url
+]]></Implementation>
+</Method>
+
 <Method name="GenMailBody">
 <ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[	Quit ..DetailAsStream