please help identify the problem on below script that previously worked in "Application Monitor": error message: "Can't identify dynamic column definitions from script output"... Thank you...
strFolder = "\\servername.com\sharedfolder$\Usr\crownord"
intMinutes = 10
strEmailFrom = "Orion@NOtifications"
strEmailTo = "users@email.com;phonenumber@vtext.com"
strEmailSubject = "Server Files Not Been Processed (crownord folder)"
strEmailBody = "The following files were over " & intMinutes &_
" minutes old --- Follow Instructions in: \\servername.com\share\share\share\share\share\instructions.txt to troubleshoot this message" & vbCrLf & vbCrLf
strSMTP = "snmtpserver.com"
arrReport = Array("File" & vbTab &_
"Size" & vbTab & "Date Created")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
For Each objFile In objFolder.Files
dtmCreated = objFile.DateCreated
intDiff = DateDiff("n", dtmCreated, Now)
If intDiff > intMinutes Then
intLen = Len(objFile.Path)
If intLen > intLongest Then
intLongest = intLen
End If
ArrayAppend arrReport, objFile.Path & vbTab & objFile.Size & vbTab & dtmCreated
End If
Next
If UBound(arrReport) > 0 Then
For i = 0 To UBound(arrReport)
strLine = arrReport(i)
intPos = InStr(strLine, vbTab) - 1
intPad = intLongest - intPos
arrReport(i) = Replace(strLine, vbTab, Space(intPad) & vbTab, 1, 1)
Next
Set objEmail = CreateObject("CDO.Message")
objEmail.From = strEmailFrom
objEmail.To = strEmailTo
objEmail.Subject = strEmailSubject
objEmail.Textbody = strEmailBody & Join(arrReport, vbCrLf)
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End If
Sub ArrayAppend(arrInputArray, strNewValue)
If Not IsArray(arrInputArray) Then
arrInputArray = Array()
End If
intElemCount = UBound(arrInputArray) + 1
ReDim Preserve arrInputArray(intElemCount)
arrInputArray(intElemCount) = strNewValue
End Sub