kinnax.blogg.se

' Adjust array size in declaration line as needed ' Array of words to check for in log entries ' For log entries generated by this script Hs.WriteLog(scriptName, "*** PROBLEM DETECTED *** - no log entries to read") Hs.WriteLog(scriptName, "No errs to send!") Hs.RunScriptFunc("SendEmail.vb", "Main", sendTo & "|" & subject & "|" & errList, True, False) ' hs.SendEmail(toAddress, from, cc, Bcc, subject, errList, attachment)ĭim subject As String = "HS Log Alerts - Reminder" ' Dim subject As String = "HS Log Alerts - Reminder" ' Dim from As String = Dim toAddress As String = Dim cc As String = "" Hs.WriteLog(scriptName, "Sending err details.")ĮrrList = "Log entries containing " & wordList & " from the past " & numHours & " hours." & & " log entries scanned.Date/TimeTypeMessage" & errList & "" If InStr(1, logLine, word, vbTextCompare) > 0 Then LogLine = "" & Logs(i).LogTime & "" & Logs(i).LogType & "" & Logs(i).LogText & "" 'logLine = "" & Log.LogTime & "" & Log.LogType & "" & Log.LogText & "" ' For oldest to newest, use the line below instead of the following line also change line further above 'For Each Log As HomeSeerAPI.LogEntry In Logsįor i As Integer = Logs.Count - 1 To 0 Step -1

' For oldest to newest, use the line below instead of the following line also change line further below Hs.WriteLog(scriptName, & " log entries in the past " & numHours & " hours.") If Logs IsNot Nothing AndAlso Logs.Count > 0 Then Logs = hs.GetLog_Date(Now.AddHours(numHours * -1), Now) ' Array of words to check log entries for Dim scriptName As String = "EmailErrLogEntries"