Как я могу переключаться между "Все" и "Непрочитанные" в моем почтовом ящике Outlook 2013?

Question

Я хотел бы переключаться между просмотром всех и просто непрочитанных писем в моем почтовом ящике Outlook 2013, используя только клавиатуру и комбинацию клавиш, например, Ctrl+Shift+A и Ctrl+Shift+U (просто пример).

Есть такой ярлык или его можно создать?

Самое близкое, что я получил, - это Ctrl+E, чтобы перейти к окну поиска, затем Shift+Tab, чтобы перейти к непрочитанному, и Shift-Tab снова, чтобы добраться до All, затем пробел, чтобы выбрать. Громоздкие!

Answer 1

Поэтому я завел комбинацию из вышеперечисленных советов, спасибо всем!

• Создан пользовательский вид только для непрочитанных сообщений
• Создан макрос для переключения между обычным компактным представлением и просмотром только непрочитанных сообщений.
• Создана кнопка панели быстрого доступа для макроса, которую можно использовать с помощью Alt+ номер, соответствующий расположению кнопок на QAT.

Это макрос:

Sub SkifteView()

Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace("MAPI")

Dim Exp As Outlook.Explorer
Set Exp = Application.ActiveExplorer

Dim myInbox As Folder
Set myInbox = ns.GetDefaultFolder(olFolderInbox)

Set Exp.CurrentFolder = myInbox

If Application.ActiveExplorer.CurrentView.Name = "Compact" Then
   Application.ActiveExplorer.CurrentView = "Only unread"
Else
    Application.ActiveExplorer.CurrentView = "Compact"
End If
End Sub

Answer 2

Вы можете сопоставить несколько простых макросов в AutoHotkey примерно так:

#SingleInstance
#Persistent
SetTitleMatchMode 2

Hotkey, IfWinActive, Outlook ahk_class rctrl_renwnd32, NUIDocumentWindow
Hotkey, +u, ViewUnreadLabel
Hotkey, +a, ViewReadLabel
Hotkey, IfWinActive

SafeToRunMacro() {
    IfWinActive, ahk_class rctrl_renwnd32
    {
        ControlGetFocus, CurrentCtrl
        CtrlList = Acrobat Preview Window1,AfxWndW5,AfxWndW6,EXCEL71,MsoCommandBar1,OlkPicturePreviewer1,paneClassDC1,RichEdit20WPT2,RichEdit20WPT4,RichEdit20WPT5,RICHEDIT50W1,SUPERGRID1,SUPERGRID2,AfxWndW16,OutlookGrid1,NetUIHWND4
        if CurrentCtrl in %CtrlList%
        {
            Return, True
        } else {
            Return, False
        }
    }
}

ViewUnreadFunc(NormalKey) {
    if SafeToRunMacro() {
        ControlClick, OutlookGrid1, ahk_class rctrl_renwnd32,,,, NA x60 y5
    } else {
        Send %NormalKey%
    }
}

ViewReadFunc(NormalKey) {
    if SafeToRunMacro() {
        ControlClick, OutlookGrid1, ahk_class rctrl_renwnd32,,,, NA x5 y5
    } else {
        Send %NormalKey%
    }
}

ViewUnreadLabel:
    ViewUnreadFunc(A_ThisHotkey)
Return

ViewReadLabel:
    ViewReadFunc(A_ThisHotkey)
Return

Если вы заинтересованы, вы можете скомпилировать это в файл .exe и запускать его каждый раз при запуске компьютера. В настоящее время я работаю над внедрением этого в мой инструмент Outlook GTD. Если вы заинтересованы, вы можете узнать больше на AutoGTD.com

Answer 3

Единственное, что мне приходит в голову, - это открыть два основных окна Outlook: одно для папки «Входящие» и другое для папки поиска непрочитанной почты (вы можете щелкнуть по ней правой кнопкой мыши и выбрать « Открыть в новом окне»).

После этого вы сможете переключаться между окнами, используя ALT+TAB.

Answer 4

Я создал новый вид (копию Compact) и установил его для показа только непрочитанным. Затем добавил на панель быстрого действия команду «Изменить вид», которую я часто использую. Это все еще требует 2 щелчка, но это простое решение и довольно быстрое.