Установить статус флага электронной почты в Outlook 2007

Question

Есть ли способ в Outlook 2007 установить следующий флаг на объект электронной почты? Похоже, что это было поддержано в Outlook 2003 с .FlagStatus собственности, но я не могу найти его в 2007 году

Answer 1

Из заметок изменения перспективы:

Для следующих флажков для последующих флажков Флаги, введенные в 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 

Answer 2

Это то, что 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