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 SubAt
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)