Index: BL/EC/Common.mac.rou
===================================================================
diff -u -r2014 -r2171
--- BL/EC/Common.mac.rou	(.../Common.mac.rou)	(revision 2014)
+++ BL/EC/Common.mac.rou	(.../Common.mac.rou)	(revision 2171)
@@ -44,15 +44,35 @@
 	For EST=1:1:$ESTACK Set Body=Body_$C(13)_"   "_$STACK($STACK-EST,"PLACE")
 	Set Body=Body_$C(13)_$C(13)_"Device: "_$I_" Job: "_$J
 	Set Body=Body_$C(13)_"Server: "_$ZU(110)_" NameSpace: "_$ZU(5)
+	
+	Set Body=Body_$C(13,10)_$C(13,10)_"Variabelen: "
+	
+	set Body=Body_$C(13,10)_$$GetVariabelen()
+	
+	
 	Set From=$$$SystemMail("VHISIE")
 	Set Subj="VHISIE - Error to Log"
 	Set To=$lb(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.EC.Common.MailErrorNaar"))
 	
 	Do ##class(vhLib.Logger).%New("Vhisie").ErrorMail(Actie,Body)
 	
-	;Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)	
-	
 	Quit Logging
+	
+GetVariabelen()
+	new Variabel,Variabels,VariabelData set (Variabel,Variabels)=""
+	for  { set Variabel=$order(@Variabel) quit:Variabel=""  
+ 	 	continue:Variabel="Body"
+ 	 	continue:Variabel="Logging"
+ 	 	continue:Variabel="Detail"
+ 	 	continue:Variabel="Variabel"
+ 	 	continue:Variabel="VariabelData"
+ 	 	continue:Variabel="Info"
+ 	 	if $isobject($get(@Variabel)) { set VariabelData = $$ObjToText^vhLib(@Variabel) }
+ 	 	else { set VariabelData = $get(@Variabel) }
+ 	 	set Variabels = Variabels _ $C(13,10) _Variabel_" = " _  VariabelData
+ 	}
+ 	quit Variabels
+		
  
 WebServiceTrap()
 	;Fout gebruiksvriendelijk maken en mailen naar van hoecke indien niet op development server