Search and Find Email by Folder Name

Status
Not open for further replies.
B

Bamerand

Senior Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server
Hello Diana,

Can you please help me as I am stuck with this code? I extracted it from the Sub SearchByAddress Use Instant search to find messages from a contact and changed it a bit so that the Search finds the foldername instead of contact. I get the result, but rather than FullFolderPath I need to have results display in Search Bar as only Folder name, instead of FullFolderPath. In the screenshot uploaded, the Search macro displays the entire result, like "*******@domain.com/Inbox", but I need need it only display Inbox path, i.e. only the folder name the email is stored.

Code:

*****
Sub SearchByFolder()
Dim myOlApp As New Outlook.Application
Dim NS As Outlook.NameSpace
Dim strFilter As String
Dim oMail As Outlook.MailItem

Set NS = myOlApp.GetNamespace("MAPI")

Set oMail = Application.ActiveExplorer.Selection.item(1)
strFilter = oMail.Parent.FullFolderPath

Set myOlApp.ActiveExplorer.CurrentFolder = NS.GetDefaultFolder(olFolderInbox)
txtSearch = "folderpath: ( " & Chr(34) & strFilter & Chr(34) & ") "
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllOutlookItems

Set myOlApp = Nothing
End Sub
****

Screenshot 2022-01-07 094932.png
 
Sorry, I didn't see this earlier. You can't search for a folder name, only search within a folder.
This searches the inbox - folderpath:Inbox

Try this macro - it finds a folder by name.

Find a Folder by its Name - VBOffice

Don't remember where to find a given folder? With this script you can find the folder by its name.
vboffice.net
 
Status
Not open for further replies.
< Copy specific email body text | ISOmacro to extract active mail senders name and email, CC, Subject line, and filename of attachments and import them into premade excel spread sheet >
Similar threads
Thread starter Title Forum Replies Date
T How to find or display the sub-folder name for an Archive Search Using Outlook 10
J search doesn't find anything Using Outlook 1
B Looking to filter (or just find/search) for only messages that the sender has sent more than 1 messa Using Outlook 2
B Search: Cannot find which Folder Contains a Message Using Outlook 3
K Re: Use Instant search to find messages from a contact Outlook VBA and Custom Forms 6
R writing "Instant Search" queries to find User-Defined fields Using Outlook 0
efire9207 Addressbook Search Using Outlook 4
Victor_50 Outlook 365 Quick search by period (today, yesterday, last week) completely missing in newest OL 365 Using Outlook 0
A Outlook 2021 needs 'enter' for people search Using Outlook 2
M Search message, then (1) Jump to folder & (2) Select message that you searched for Outlook VBA and Custom Forms 6
G Search Folders and Jump to Folder Outlook VBA and Custom Forms 2
A 'search people' now asks me to 'press enter' Using Outlook 11
A Relocate Search Bar in Outlook Using Outlook 2
A Search folder and move the email Outlook VBA and Custom Forms 0
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
P Search folder: all emails sent to or from a domain Using Outlook 1
T Outlook365 search item listed as "potential matches" can't be opened Using Outlook 0
Victor_50 Outlook 2019 Jump to folder from search folder Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
J Outlook search bar in Office 2021 Professional Using Outlook 1
T Outlook 365 Search Box reverting to old location Using Outlook 2
P Outlook 2013 search no longer works Using Outlook 2
C How to search for items in Outbox with multiple accounts? Using Outlook 20
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
A Any way to force sort by/group by on search results with VBA? Outlook VBA and Custom Forms 1
C Search not accurate, but not indexing Using Outlook 9
J How do you disable address search box when typing @ in body of email? Using Outlook 0
H Outlook 2019 intermittent search results Using Outlook 0
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2
D Advanced e-Mail search on from/to contact group only searches for first 20 contacts in group Using Outlook 0
mll persistently customise columns in outlook advanced search Using Outlook 3
S vba outlook search string with special characters Outlook VBA and Custom Forms 1
S VBA search string with special characters Outlook VBA and Custom Forms 1
H Search Email Header for Content Type Outlook VBA and Custom Forms 1
P Posts in Folder No Longer Group by Conversation Column After Search Using Outlook 0
O Advanced search - can I use booleans Using Outlook 3
Y Filter unread emails in a search folder vba help Outlook VBA and Custom Forms 0
M Reverting The Outlook Search Box Location (or other undesired additions) Using Outlook 1
M Something went wrong and your search couldn't be completed Using Outlook 1
M Disable Contact Card Results when using "Search People" in Outlook Ribbon Using Outlook 7
J outlook 2007 doesn't let me choose which .pst to search Using Outlook 2
P outlook 2008 search box criteria couldn't be saved Using Outlook 2
C Outlook with Office365 - search across account, by date rate, in multiple folders - how? Using Outlook 2
D Custom Search Folders not refreshing/updating automatically Using Outlook 0
L New Location for the Search Bar Using Outlook 6
T How can you include Junk Email in Search Results like you can include Deleted Items? Using Outlook 3
J Outlook 2016 After a search in all mailboxes, where is each message that was found? Using Outlook 6
King Mustard Sort search groups by amount of items? Using Outlook 1

Similar threads

Back
Top