Hi @June7
Trying to assist a member in another forum.
I now have this so far.

Sub TestRule()Dim olRules As Outlook.rules
Dim olRule As Outlook.Rule
Dim iRule As Integer, iAction As Integer, iException As Integer, iRuleAction As Integer
Dim oAction As Object
Dim strTab As String


strTab = vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab


Set olRules = Application.Session.DefaultStore.GetRules
'Set olRule = olRules.item("TestRule")
For iRule = 1 To olRules.Count 'Each olRule In olRules


'    Debug.Print olRules.item(iRule).Name 'TypeName(iRule)
'    Debug.Print olRules.item(iRule).Enabled
'    Debug.Print olRules.item(iRule).Actions.Count
    For iAction = 1 To olRules.item(iRule).Actions.Count
        'Set oAction = olRules.item(iRule).Action
        If olRules.item(iRule).Actions(iAction).Enabled And olRules.item(iRule).Actions(iAction).ActionType = 1 Then
            Debug.Print "Rule: " & olRules.item(iRule).Name & strTab & "Folder: " & olRules.item(iRule).Actions(iAction).Folder.FolderPath
            Exit For
        End If
        'Debug.Print "ActionType: " & olRules.item(iRule).RuleActions.item(iAction)
    Next
    'Debug.Print olRules.item(iRule).Exceptions.Count
    'printArray olRules(iRule).Conditions.Body.Text
    'printArray olRules(iRule).Conditions.MessageHeader.Text
    
Next
Set oAction = Nothing
Set olRules = Nothing
Set olRule = Nothing
End Sub
which produces
Rule: XE Currency                               Folder: \\Personal Folders\Inbox\Gmail\XERule: AirBnB                                Folder: \\Personal Folders\Inbox\Gmail\AirBnB
Rule: Google Support                                Folder: \\Personal Folders\Inbox\Gmail\Google Support
So I think I have got what they are looking for.
Will have to wait an see.