I have this routine that works in outlook 2010 but not in outlook 2013 (365).

Public Sub readTextFile(oFolder As eFolder)
    If oFolder = NotSupported Then Exit Sub
    If oFolder = Inbox Then
        ActiveExplorer.CurrentView = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Views("MgInbox")
    Else
        ActiveExplorer.CurrentView = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Views("MgSentMail")
    End If
    Dim oTV As Outlook.TableView
    Set oTV = ActiveExplorer.CurrentView
    <b> oTV.AutoFormatRules.item(eColor.Green).Filter = cGetFilter(oFolder, Green) </b>
    oTV.AutoFormatRules.item(eColor.Red).Filter = cGetFilter(oFolder, Red)
    oTV.AutoFormatRules.item(eColor.Brown).Filter = cGetFilter(oFolder, Brown)
    oTV.AutoFormatRules.item(eColor.Blue).Filter = cGetFilter(oFolder, Blue)
    oTV.Apply
End Sub

At

oTV.AutoFormatRules.item(eColor.Green).Filter = cGetFilter(oFolder, Green)

It tells me that I have insufficient rights on the folder. (error 86204005, You don't have appropriate permission to perform this operation)

I'm puzzled.