vba - 在 Outlook 2007 中设置电子邮件标志状态

Question

有没有办法在 Outlook 2007 中为电子邮件对象设置跟进标志？看起来它在 Outlook 2003 中支持 .FlagStatus 属性，但我在 2007 中找不到它。

Answer 1

来自 outlook 变更说明:

For Follow Up Flags For Follow Up Flags, introduced in Microsoft Office Outlook 2003, are replaced by task flags and color categories. You no longer see colored flags in the Mail view. If you flagged items in the earlier version of Outlook to indicate that they were important or that they belonged to a particular group, you should now use color categories instead. If you used flags to indicate the time at which you were to take action on an item, you should now use task flags. This change is being made to increase the functionality of flags. With task flagging, you can place an item in the overall task management system, allowing you to see your tasks in the To-Do Bar, Daily Task List in Calendar, and in the Tasks view. By categorizing an item, you can easily scan your Inbox for categorized items, the same way that you might previously have scanned your Inbox for flagged items. You can also find categorized items in the Categorized Mail Search Folders.

所以标志的概念发生了变化，这就是 FlagStatus 属性发生变化的原因。根据this ，以下应该有效:

Set SelectedItems = Outlook.ActiveExplorer.Selection
    For Each Item In SelectedItems
        With Item
            .ToDoTaskOrdinal = dtTaskDate
            .TaskDueDate = dtTaskDate
            .TaskStartDate = dtTaskDate
            .FlagStatus = 2
            .FlagRequest = strFlagRequest
            .Categories = strCategories
            .FlagIcon = 6
            .Save
        End With
    Next Item