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

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

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

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

Источник

4 ответа

Решение

Вы можете сопоставить несколько простых макросов в 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

Источник

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

  • Создан пользовательский вид только для непрочитанных сообщений
  • Создан макрос для переключения между обычным компактным представлением и просмотром только непрочитанных сообщений
  • Создана кнопка панели быстрого доступа для макроса, которую можно использовать с помощью 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
Источник

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

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

Источник

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

Источник
Другие вопросы по тегам