im getting a type mismatch error

[cale may]

Hello,

I want to filter my inbox by searching for a single persons name.

I have done my best to follow the instructions on getting this vba code to run:

Sub SearchByAddress()
Dim myOlApp As New Outlook.Application
Dim ns As Outlook.NameSpace
Dim strFilter As String
Dim oContact As Outlook.ContactItem
Set ns = myOlApp.GetNamespace("MAPI")
Set oContact = ActiveExplorer.Selection.Item(1)
' use oContact.FullName to search on the name
strFilter = oContact.Email1Address

Set myOlApp.ActiveExplorer.CurrentFolder = ns.GetDefaultFolder(olFolderInbox)
txtSearch = "fromkirsten collins)" & strFilter
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub

I get a type mismatch error on the "Set oContact = ActiveExplorer.Selection.Item(1)" line

Could someone please help?

 

[Diane Poremsky]

Is a contact selected when you run the macro?

 

[cale may]

No. I didn't understand that part. I will try tomorrow.
Is there a macro that I can set up for a person's name.
I spend 1 hour a day filtering by peoples names. I would like to find a macro that I can click and it does it for me.
Thank You so much for your help.

 

[Diane Poremsky]

if you want to filter on the sender name, i think i have a macro, or one that comes close

This macro creates a search folder for the sender: http://www.slipstick.com/developer/create-an-outlook-search-folder-using-vba/
[DOUBLEPOST=1430456543][/DOUBLEPOST]The macro under Search for messages to or from a sender at http://www.slipstick.com/developer/instant-search-messages-selected-contact/ does an instant search for all messages from the sender of the selected message.