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")
        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)
End Sub

AtoTV.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)

It seems that the standard property of the AutoformatRules were set to true. I solved the problem by getting rid of them and creating them on the fly, which if I'm right you could not do in 2010. The documentation is particularily cryptic on this subject.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.