Anonymous

Sub EnumerateSubFolders(fld As folders)

Dim oItem       As PostItem
Dim oFolder     As MAPIFolder

Dim bad         As Boolean
Dim Messages    As String

Debug.Print "Scanning ..."

For Each oFolder In fld
    If oFolder.Items.Count > 1 Then
        bad = True
        
        For Each oItem In oFolder.Items
            If DateDiff("h", oItem.ReceivedTime, Now) < 24 Then
                If InStr(1, oItem.Body, "</table>") Then
                    bad = False
                    Exit For
                End If
            End If
            
            If DateDiff("d", oItem.ReceivedTime, Now) > 3 Then
                Exit For
            End If
        Next
        
        If bad Then
            Messages = Messages & oFolder.Name & vbCrLf
        End If
    End If
Next

MsgBox Messages, vbInformation Or vbOKOnly, "Sites that haven't sent a notification in the last 24 hours"

Debug.Print "Done"

End Sub

Sub EnumerateFolders(fld As MAPIFolder)

Dim oFolder     As MAPIFolder

For Each oFolder In fld.folders
    If oFolder.Name = "Panther Notifications – Production" Then
        EnumerateSubFolders oFolder.folders
    End If
Next

End Sub

Sub FindBrokenSysmon()

EnumerateFolders Session.GetDefaultFolder(olPublicFoldersAllPublicFolders)

End Sub