Sub SearchByLastStatusResume()
Dim myOlApp As New outlook.Application
txtSearch = "[Last Status]Resume)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
So it sounds like the whole search is dead. You're still using Outlook 2007? In Tools, Trust Center, Addins is the Windows Search Indexer in the Active section.
Is the search indexer enabled/Active? If so, try rebuilding the index. I forget exactly how to do it in Outlook 2007 - maybe look for a Search applet in the control panel and see if you can find a rebuild option.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.