Macro search query for past 4 weeks?

[benobi]

Hi there



I've set up a macro in an attempt to have a Unified inbox view across my 2 work email accounts in Outlook O365.

The macro is:

Sub UnifiedInbox()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:Inbox received: (this month)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub

My question is this - is there a query to return search results for the 'last 4 weeks'? Or past 30 days? Or equivalent?

I can only see this week, last week, this month, last month, this year, last year as the standard variables. These are pretty restrictive and a bit shortsighted - for example if I use 'this month' at the start of the month (like today for example) I get next to no results.

Any help would be greatly appreciated.

Cheers

Ben

[benobi]

Hi - can anyone help me with my query please?

Cheers

Ben

[AlanCantor]

Rather than use VBA — or as an aid to zero in on the appropriate VBA instruction — try the standard Outlook search filter "received:"

Specify relative dates such as today, tomorrow, yesterday, or multi-word relative dates such as this week, next month, last week, past month, coming year.

But you can also enter expressions like this in the search box:


received>=10/1/2020 AND received<=10/5/2020


Not sure this translates into VBA, although my guess is that it does.

[AlanCantor]

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