0

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

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)

1
Contributor
1
Reply
10
Views
3 Years
Discussion Span
Last Post by PerplexedB
1

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.

Edited by PerplexedB

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.