Index: APPS/MAG/Optibox/OptiboxImpl.cls.xml
===================================================================
diff -u -r1145 -r1149
--- APPS/MAG/Optibox/OptiboxImpl.cls.xml	(.../OptiboxImpl.cls.xml)	(revision 1145)
+++ APPS/MAG/Optibox/OptiboxImpl.cls.xml	(.../OptiboxImpl.cls.xml)	(revision 1149)
@@ -4,6 +4,7 @@
 <Description>
 JBL + 2011-03-02 
 Optibox processen afsluiten en indien nodig opnieuw opstarten van het toestel</Description>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -75,11 +76,14 @@
 			If ($Get(Fout)'=""){
 				Set Message = "De optibox kon niet herstart worden. Gelieve contact op te nemen met de IT-dienst."
 				Set ExtendedMessage = Message_$C(13,10)_"Persoon:"_$C(9)_Persoon
-				Set ExtendedMessage = Message_$C(13,10)_"Tijdstip"_$C(9)_$zd(+$h,4)_" om "_Start
+				Set ExtendedMessage = ExtendedMessage_$C(13,10)_"Tijdstip:"_$C(9)_$zd(+$h,4)_" om "_$zt(Start)
 				Set ExtendedMessage = ExtendedMessage_$C(13,10)_"Server:"_$C(9)_Computer.ServerName
 				Set ExtendedMessage = ExtendedMessage_$C(13,10)_"Fout:"_$C(9)_Fout
 				set FP=0405 write @F,@F1,@FMTI,Message,@FMTi
-				Do ##class(vhLib.Logger).%New("Computer").Error(Computer.ServerName_" kon niet worden herstart",)	
+				Do ##class(vhLib.Logger).%New("Computer").Error(Computer.ServerName_" kon niet worden herstart",ExtendedMessage)	
+				Set To = $lb(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress"))
+				Set From = $$$SystemMail($$$Server_" - Optibox")
+				Set sc=$$SendMiniMail^vhLib(From,To,"De optibox kon niet herstart worden",ExtendedMessage,0)
 			}	
 		}
 	}