Uniview for Microsoft Outlook on Desktop - See all emails Inboxes in a single view
HTML-код
- Опубликовано: 22 авг 2024
- I use multiple email addresses and love the consolidated view I get on my mobile device with Microsoft Outlook for mobile. Unfortunately, it's not that simple for the Outlook desktop client. Thats where Uniview comes in, give it a try, let me know if its beneficial to how you work by commenting below.
Below is the source code for the macro.
Sub UnifiedInbox()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:(Inbox)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
Sub UnifiedSentbox()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:(Sent Items)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
Sub UnifiedDeletedItems()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:(Deleted Items)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
Sub UnifiedDrafts()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:(Drafts)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
Sub UnifiedJunk()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:(Junk Email)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
Sub UnifiedArchive()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:(Archive)"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub