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

在Outlook 2007中，是否有方法在电子邮件对象上设置后续标志？Outlook 2003中使用.FlagStatus属性支持它，但我在2007年找不到它。

这就是我要说的：

Dim instance As _MailItem
Dim value As OlFlagStatus

value = instance.FlagStatus

instance.FlagStatus = value

---

从outlook更改注释中：

对于后续标志，在Microsoft Office Outlook 2003中引入的后续标志将被任务标志和颜色类别替换。您在邮件视图中不再看到彩色标志。如果您在早期版本的Outlook中标记了项目，以表明它们很重要或属于特定组，则现在应改用颜色类别。如果使用标志来指示对项目执行操作的时间，则现在应使用任务标志。进行此更改是为了增加标志的功能。通过任务标记，您可以在整个任务管理系统中放置一个项目，使您可以在待办事项栏、日历中的每日任务列表和任务视图中查看任务。通过对项目进行分类，您可以轻松地扫描收件箱中已分类的项目，就像您以前扫描收件箱中已标记的项目一样。您还可以在分类邮件搜索文件夹中找到分类项目

因此，标志的概念发生了变化，这就是FlagStatus属性发生变化的原因。根据这一点，以下措施应起作用：

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

---

@克丽丝，我用回程机器更新了链接。