vhLib.Macro %RegisteredObject 1 1 1 DatabaseFileName:%String 1 "_InfoCurrent_" <> "_InfoPrevious) } } set InfoPrevious = InfoCurrent set Counter = Counter + 1 } if Counter < 2 { do Problemen.Insert(Namespace_" "_Global_" ---> no shadow info") } } } if Problemen.Size > 0 { #dim From As %String = $$$SystemMail($$$Server) #dim To As %List = $listbuild("ICT_meldingen@vanhoecke.be") #dim Subject As %String = "Problemen met shadowing naar server "_$$$Server #dim Body As %String = ##class(TECH.ListUtils).ListToPieces(Problemen,$char(13,10)) do SendMiniMail^vhLib.Mail(From,To,Subject,Body) } ]]> 1