Question

我不时会收到一封电子邮件，其中发件人已在电子邮件中设置了“截止日期”。这会导致电子邮件主题行最终变为红色。这非常有用，通常可以确保我不会错过重要的内容，但是......

即使电子邮件已被阅读，回复并存档，它也会保持红色。有没有办法将这些电子邮件标记为已完成/已完成/已执行，并删除红色（过期）状态？

请注意，这是一个电子邮件，而不是任务，没有跟进标志或我可以找到任何标记为处理的任何内容。

Answer 1

如果无法通过原生Outlook进行更新，请查看是否有效。

Sub setFlagStatus()

' http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook._mailitem.flagstatus.aspx
'  This object, member, or enumeration is deprecated and is not intended to be used in your code.

' http://msdn.microsoft.com/en-us/library/office/aa212013(v=office.11).aspx
'  olFlagComplete (1)
'  olFlagMarked (2)
'  olNoFlag (0) -  This set a flag in Outlook 2010

Dim selectedItems As Selection
Dim item As Object
Dim flagCount As Integer

Set selectedItems = Outlook.ActiveExplorer.Selection

For Each item In selectedItems

    With item
        Debug.Print .FlagStatus
        .FlagStatus = olFlagComplete ' Tick mark and no longer red
        Debug.Print .FlagStatus
        .Save
    End With

Next item

Set selectedItems = Nothing

End Sub

清除“逾期”电子邮件

1 个答案: