【发布时间】:2009-10-30 16:21:31
【问题描述】:
在 Outlook 2007 中有没有办法在电子邮件对象上设置后续标志?看起来它在带有 .FlagStatus 属性的 Outlook 2003 中受支持,但我在 2007 年找不到它。
【问题讨论】:
标签: vba outlook outlook-2007
在 Outlook 2007 中有没有办法在电子邮件对象上设置后续标志?看起来它在带有 .FlagStatus 属性的 Outlook 2003 中受支持,但我在 2007 年找不到它。
【问题讨论】:
标签: vba outlook outlook-2007
来自前景变更说明:
对于后续标志 Microsoft Office Outlook 2003 中引入的后续标志被任务标志和颜色类别所取代。您不再在“邮件”视图中看到彩色标志。如果您在早期版本的 Outlook 中标记项目以表明它们很重要或它们属于特定组,您现在应该改用颜色类别。如果您使用标志来指示您对项目采取行动的时间,那么您现在应该使用任务标志。进行此更改是为了增加标志的功能。通过任务标记,您可以在整个任务管理系统中放置一个项目,允许您在待办事项栏、日历中的每日任务列表和任务视图中查看您的任务。通过对项目进行分类,您可以轻松地扫描收件箱中的分类项目,就像您以前扫描收件箱中已标记的项目一样。您还可以在分类邮件搜索文件夹中找到分类项目。
所以标志的概念发生了变化,这就是 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
【讨论】:
这是http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook._mailitem.flagstatus.aspx 不得不说的:
Dim instance As _MailItem
Dim value As OlFlagStatus
value = instance.FlagStatus
instance.FlagStatus = value
【讨论】: