How to find all emails from and to a contact in OL 2019

[Witzker]

Hi
changed from OL 2010 to 2019 now

The function to get emails to and from a contact displayed in a list has been removed in 2019?
It was slow in 2010 but useful.

How to get this feature back?

I have a contact open - and want to see what mails have been sent or received from this contact.
I hope you know what I mean?

Is there already a solution for this?

Would you in the forum consider this as a useful feature?
What do you think?

 

[Diane Poremsky]

The activities and people pane are gone from outlook 2019 - you can use instant search - or a macro to automate it.
Use Instant search to find messages from a contact

Both were useful - I really liked the people pane (a feature of the social connector) - you could view recent messages for any recipient on any message.

 

[Witzker]

THX

Think that's what I need:
I open a contact and run the macro

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 = "from:" & strFilter
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

Set myOlApp = Nothing

End Sub

But I need to look too in all subfolders of inbox!
Can you help, pls?

 

[Diane Poremsky]

The search scope should be all folders.
olSearchScopeAllFolders

if you want just the inbox and its subfolders, use
olSearchScopeSubfolders

 

[Witzker]

THX now i use the macro to search for all emailadresser of an contact from: OR to:

I open the contact run the macro - WORX
I open another contact run the macro - all Items in Inbox are shown & !!

the "to" is marked in mails that contain "to" like tobias

Here is what I have:

Sub T_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 = Chr(34) & oContact.Email1Address & Chr(34)

If oContact.Email2Address <> "" Then
strFilter = strFilter & " OR " & Chr(34) & oContact.Email2Address & Chr(34)
End If

If oContact.Email3Address <> "" Then
strFilter = strFilter & " OR " & Chr(34) & oContact.Email3Address & Chr(34)
End If
 
Set myOlApp.ActiveExplorer.CurrentFolder = ns.GetDefaultFolder(olFolderInbox)

txtSearch = "from:(" & strFilter & ") OR to:(" & strFilter & ")"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
 
Set myOlApp = Nothing
 
End Sub

 

[Witzker]

Pls. Forget the above!! (it was too late to be able to delete the post above)
I found your macro here:

Search for All Messages from Contact and Display in New Window

Victor Beekman wanted to share another macro with our visitors. This is similar to our macros that search for all messages from a contact or sender but instead of doing an "in-place" search, it opens a new window with the results.

www.slipstick.com

Can you Pls help to sort the results, NOT like it is: IN FOLDER
I would like to have it sorted To DATE - youngest in top.

THX great.

 

[Diane Poremsky]

You would need to change the view using VBA - i'll take a look, but you can change the sort order in the search results. If you save it as a new view, it is usually applied to search results.