Outlook Object model

Does anyone have any info on the Outlook Object model?
Looking for a way to export rules into a human readable format (at least)?

TIA

I have managed to cobble the below together from snippets on the net, but TBH am getting lost. I am not a developer, but a dabbler.

Code:

---

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
    Set olRules = Application.Session.DefaultStore.GetRules
    'Set olRule = olRules.item("TestRule")
    For iRule = 1 To 1 '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
            Debug.Print "ActionType: " & olRules.item(iRule).RuleActions.item(iAction)
            For iRuleAction = 1 To olRules.item(iRule).RuleActions.item(iRuleAction).Count
                Debug.Print "RuleACtions: " & olRules.item(iRule).RuleActions.item(iRuleAction)
            Next
        Next
        Debug.Print olRules.item(iRule).Exceptions.Count
        printArray olRules(iRule).Conditions.Body.Text
        printArray olRules(iRule).Conditions.MessageHeader.Text
    Next
    Set olRules = Nothing
    Set olRule = Nothing
End Sub

Private Sub printArray(ByRef pArr As Variant)
    Dim readString As Variant
    If (IsArray(pArr)) Then
        'check if the passed variable is an array
        For Each readString In pArr
            If TypeName(readString) = "String" Then 'check if the readString is a String variable
                Debug.Print readString
            End If
        Next
    End If
End Sub

---

1. errors if there are no rules

2. doesn't like RuleActions "Object doesn't support this property or method." My understanding of this property is that it is a collection of available rule actions. The entire collection is associated with each rule. Each action will be flagged as enabled if it is set as such for specific rule. I expect will have to enumerate the collection and output its identifier and enabled status. Something like:

Code:

---

Dim olRules As Outlook.Rules, olRule As Outlook.Rule, olR As Outlook.RuleActions, olA As RuleAction
Set olRules = Application.Session.DefaultStore.GetRules
For Each olRule In olRules
    Set olR = olRule.Actions
    For Each olA In olR
        Debug.Print olRule.Name, olA.ActionType, olA.Enabled
    Next
Next

---

See docs for ActionType constants https://learn.microsoft.com/en-us/of...ruleactiontype

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

Code:

---

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

Code:

---

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.