Thread
:
Macro search query for past 4 weeks?
View Single Post
11-19-2020, 12:40 PM
AlanCantor
Windows 10
Office 2019
Competent Performer
Join Date: Nov 2020
Posts: 137
Maybe something like this?
Sub UnifiedInbox()
Dim myOlApp As New Outlook.Application
Z = Date - 30
txtSearch = "received:>=" & Z
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
AlanCantor
View Public Profile
Find all posts by AlanCantor