Thanks for your help. In the end I created a new view called 'Unfiltered
view' and applied strXML (with fliter text removed) to that view and loaded
it each time I want to clear fliters. Then I use a separate view 'Filtered
view' to be loaded every time I want to apply a filter and use macros to make
sure a filter never gets applied to Unfiltered.

"Ken Slovak - [MVP - Outlook]" wrote:

This isn't Outlook 2007 is it?

I'm not sure this idea will work:

Get the XML, Name, ViewType and SaveOption property values. Also capture the
LockUserChanges value. Change the current view to another of the views
available in the Views collection Then go up one level to the Views
collection and delete that view. Add your view with all the properties you
saved, using the Add() function. Then drop down to the View object you got
from Add() and set the view and apply and save it.

See if that does something for you.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris Quayle" wrote in message
...
Ken,

Thanks for confirming that removing the filter text is the correct way. I
had removed the save/apply lines because I've found that they are not
necessary when changing other aspects of the xml. I have now added them
and
my code still does not work. Code is as follows:
Sub clearFiltersCurrentView()

Dim strXML As String
Dim intFilterStart As Integer
Dim intFilterEnd As Integer
Dim vCurrentView As View

Set vCurrentView = Application.ActiveExplorer.CurrentView

strXML = vCurrentView.XML

intFilterStart = InStr(1, strXML, "filter", vbTextCompare)
intFilterEnd = InStr(1, strXML, "/filter", vbTextCompare)

Do While (intFilterStart 0 Or intFilterEnd 0)

If (intFilterStart = 0 Or intFilterEnd = 0) Then MsgBox "error"

strXML = Left(strXML, intFilterStart - 1) & Right(strXML, Len(strXML) -
(intFilterEnd - 1) - Len("/filter"))

intFilterStart = InStr(1, strXML, "filter", vbTextCompare)
intFilterEnd = InStr(1, strXML, "/filter", vbTextCompare)

Loop

If InStr(1, strXML, "sortdesc/sort", vbTextCompare) Then
strXML = Replace(strXML, "sortdesc/sort", "sortasc/sort")
Else
strXML = Replace(strXML, "sortasc/sort", "sortdesc/sort")
End If

Debug.Print strXML
vCurrentView.XML = strXML
vCurrentView.Save
vCurrentView.Apply
Debug.Print vCurrentView.XML
End Sub

I have added the step to toggle the sorting order to be sure that strXML
is
being applied and the column sorting in my outlook view is indeed
inverting
every time I run it. The Debug.Print strXML output verifies that there is
no
filter line in the new XML, however it persists in vCurrentView.XML even
after the changes are being applied. It's as if VBA will only change the
XML
for XML tags that you offer a replacement for but won't delete them.

So I'm still stuck!

Chris