☰

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

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2007 microsoft-outlook-2010
在 Outlook 中删除时标记为已读？

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

我知道我可以将其设置为在我查看它时在 x 秒后标记为已读，但这不是我想要的。我还知道我可以离开该消息并返回到它或右键单击以将其标记为已读 - 但仍然不是我想要的。

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

[编辑：我刚刚发现我至少可以使用键盘快捷键将其标记为已读：Ctrl-Q，但同样，不用这样做会更好。更多快捷方式这里。

[编辑2：我现在使用 Outlook 2010 :)]

答案1

嗯，我做到了，但我想我不会获得奖励积分......

我正在运行 Outlook 2010，因此我可以使用一项名为“快速访问”菜单的新功能，您可以在其中将一系列操作定义为带有快捷键的单个按钮（不幸的是，它必须是Ctrl+ Shift+数量，因为我希望在按下 时运行此操作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，我使用了自动热键并将以下内容添加到我的脚本文件中：

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

后面的部分#IfWinActive是我的 Outlook 窗口的标题（“Inkorgen”在瑞典语中是“收件箱”的意思，仅供参考...）因此您必须将其更改为反映您的 Outlook 窗口的标题。

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

（有一种方法可以与窗口的类名（ahk_class）进行匹配，但这对我来说很有效，所以我懒得去找出答案。）

相关内容