MS OUTLOOK INSTANT SEARCH NOT WORKING FULL

Share this article with a friend if you like what you see. However, you could use this to create custom search folders to track emails from a particular person or emails discussing a certain project. The main idea here to enable some sort of Outlook email search functionality using VBA if your default Outlook search is not working. If you want a shortcut to your new OutlookSearch macro, I recommend you add it to your outlook ribbon. When you’re done with your Outlook Search Folders, you can delete them by right clicking and selecting “Delete Folder.” If it’s a search string you regularly search for, you can keep the folder and come back to it later. Your search results will show up under Search Folders in your Navigation Pane.

Type your search string in the InputBox.

The SendKeys command is my attempt to do this for you, but if your inbox isn’t selected, you may still receive an error.

Make sure you have an email selected in your box.

MS OUTLOOK INSTANT SEARCH NOT WORKING FULL

To help you make macros like this, we built a free VBA Developer Kit and wrote the Big Book of Excel VBA Macros full of hundreds of pre-built macros to help you master file I/O, arrays, strings and more - grab your free copy below. It’s easy to copy and paste a macro like this, but it’s harder make one on your own.

Make powerful macros with our free VBA Developer Kit Save ( strFilter ) Set objSearch = Nothing Exit Sub Err_SearchFolderForSender : MsgBox 'Error # ' & Err & ' : ' & Error ( Err ) End Sub AdvancedSearch ( Scope : = strScope, Filter : = strDASLFilter, SearchSubFolders : = True, Tag : = 'SearchFolder' ) 'Save the search results to a searchfolder objSearch. MailItem Dim strDASLFilter As String Dim strScope As String SendKeys '/8904001f '' LIKE '%' & strFilter & '%' ' + 'OR '' '' LIKE '%' & strFilter & '%' ' + _ 'OR '' '' LIKE '%' & strFilter & '%' ' + _ 'OR '' '' LIKE '%' & strFilter & '%' ' + 'OR '' '' LIKE '%' & strFilter & '%' ' + _ 'OR '' '' LIKE '%' & strFilter & '%' ' strScope = 'Inbox' Set objSearch = Application. Public Sub OutlookSearch () '- '-Created by: Ryan Wells- '-Date: 03/2015- '-Program: OutlookSearch- '-Purpose: Search Outlook inbox for a particular string and display the results- '-in a 'Search Folders' folder.- '-1) Make sure you have an email selected in your inbox.- '-2) Press 'Alt F8'- '-3) Select SearchString > Run- '-4) Type your search string- '-5) Click OK- '-Your results will show up in the 'Search Folders' folder with- '-the title equal to your search string- '-6) You can right-click and delete this search folder when you are finished.- '- Dim strFilter As String Dim oMail As Outlook.

Ms outlook instant search not working