Channel | Publish Date | Thumbnail & View Count | Actions |
---|---|---|---|
| Publish Date not found | ![]() 0 Views |
For the Macro technique, use the following code:
~~~~~~~Create a unified inbox~~~~~~~
Sub UnifiedInbox()
Dim myOlApp As New Outlook.Application
txtSearch = /”folder:Inbox received: (this week)/”
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
~~~~~~~~~~~~~~
~~~~~~~Create a Unified Sent Folder~~~~~~~
Sub UnifiedSentbox()
Dim myOlApp As New Outlook.Application
txtSearch = /”folder: (Sent Mail) sent: (this week)/”
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
~~~~~~~~~~~~~~
Watch all of my videos on Microsoft Outlook: https://www.youtube.com/playlist?list=PLlKpQrBME6xJswJLJ69wbWWf6QlwZ84nA
As full disclosure, I work at Microsoft as a full-time employee.
Please take the opportunity to connect and share this video with your friends and family if you find it useful.