Пометить как прочитанное при удалении в Outlook?

Question

Я хочу, чтобы Outlook помечал любые сообщения, которые я удаляю, как помеченные как прочитанные. Что касается бонусных баллов, я бы хотел, чтобы это делалось только с сообщениями, которые я открывал / просматривал до нажатия кнопки «Удалить», поскольку это означает, что я просмотрел контент и решил удалить его.

Я знаю, что могу установить его как прочитанное через x секунд, когда я смотрю на него, это не то, что я хочу. Я также знаю, что могу убрать сообщение и вернуться к нему или щелкнуть правой кнопкой мыши, чтобы пометить его как прочитанное - все еще не то, что я хочу.

Я использую Outlook 2007 в случае, если это имеет значение.

[Редактировать: я только что обнаружил, что могу по крайней мере пометить как прочитанное с помощью сочетания клавиш: Ctrl-Q , но опять же, было бы неплохо не делать этого. Больше ярлыков здесь.]

[Edit2: я сейчас на Outlook 2010 :)]

Answer 1

Хм, я сделал это, но не получу бонусные баллы, я думаю ...

Я использую outlook 2010, поэтому я мог бы использовать новую функцию под названием "Быстрый доступ", в которой вы можете определить цепочки действий как одну кнопку с помощью сочетания клавиш (к сожалению, это должны быть клавиши Ctrl+Shift+NUM, поэтому Я хотел, чтобы это действие выполнялось, когда я нажимал Удалить, мне пришлось сделать дополнительный шаг. Увидеть ниже.)

В Outlook 2007 вы все еще можете определять макросы. Я украл это из другой записи на ту же тему:

http://www.formortals.com/outlook-macro-mark-as-read-delete/

Sub DeleteAndMarkAsRead()
    Dim oItem As Object
    Dim oMailItem As MailItem
    Dim oRSSItem As PostItem

    If Application.ActiveExplorer.Selection.Count = 0 Then
        Exit Sub
    End If

    For Each oItem In Application.ActiveExplorer.Selection
        If oItem.Class = olMail Then
            Set oMailItem = oItem
            oMailItem.UnRead = False
            oMailItem.Delete
        End If
    Next

    Set oItem = Nothing
End Sub

Затем вы можете добавить макрос в виде кнопки и назначить ему ярлык:

http://www.howto-outlook.com/howto/macrobutton.htm

Затем, чтобы иметь возможность запустить его, когда я нажимаю « Удалить», я использовал AutoHotKey и добавил следующее в мой файл скрипта:

#IfWinActive Inkorgen - 
    ;
    Del::       
        Send ^+1
    return
#IfWinActive

Часть после #IfWinActive - это заголовок (заголовок) моего окна Outlook ("Inkorgen" по-шведски означает "Входящие" FYI ...), поэтому вам придется изменить его, чтобы отразить заголовок окна Outlook.

Send ^+1 говорит AutoHotKey имитировать нажатие клавиши Ctrl+Shift+1 (это клавиша быстрого вызова для моего макроса (кнопка быстрого доступа)).

(Существует способ сопоставления с именем класса окна (ahk_class), но это сработало для меня, так что я не мог потрудиться узнать это.)