在Outlook中删除时标记为已读？

我希望Outlook将删除的所有邮件标记为已读。为了获得加分，我希望它仅在按Delete键之前打开/预览的邮件上执行此操作，因为这意味着我已经查看了内容并选择删除它。

我知道我可以将其设置为在查看x秒后标记为已读，这不是我想要的。我也知道我可以将消息移开并重新发送，或右键单击以将其标记为已读-仍然不是我想要的。

我正在使用Outlook 2007以防万一。

[编辑：我刚刚发现我至少可以使用键盘快捷键将其标记为已读：Ctrl-Q，但是再一次，不必这样做也很好。这里有更多快捷方式。]

[Edit2：我现在在使用Outlook 2010 :)]

嗯，我做到了，但我想不到加分...

我正在运行Outlook 2010，因此我可以使用一个称为“快速访问”菜单的新功能，您可以在其中将操作链定义为带有快捷键的单个按钮（不幸的是，它必须是Ctrl+ Shift+ NUM，所以自从我想当我按时要执行此操作Delete，我必须做一个额外的步骤。请参见下文。）

在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

为了能够在按下时运行它Delete，我使用了AutoHotKey并将以下内容添加到我的脚本文件中：

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

后面的部分#IfWinActive是我的Outlook窗口的标题（标题）（“ Inkorgen”是瑞典语，表示“收件箱” FYI ...），因此您必须对其进行更改以反映Outlook窗口的标题。

该Send ^+1告诉AutoHotkey的模拟Ctrl+ Shift+ 1按键（这是我的宏的快捷键（快速访问按钮））。

（有一种方法可以与窗口的类名（ahk_class）匹配，但这对我有用，因此我不费吹灰之力就找到了它。）