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