Изменить цвет фона MailItem в Outlook 2013 Входящие

Question

Есть ли способ изменить цвет фона в списке входящих почтовых ящиков электронной почты (MailItem экземпляров) программно? Я бы хотел создать надстройку, которая позволит мне покрасить мои письма по некоторым правилам.

Я прошел через свойства MailItem в documentation, но не смог найти какой-либо формат отображения.

Answer 1

Класс MailItem не предоставляет ничего для этого. Вместо этого вам нужно настроить представление в Outlook.

Свойство CurrentView класса Folder или Explorer можно использовать для получения объекта View, представляющего текущий вид. Чтобы получить объект View для текущего обозревателя, используйте Explorer.CurrentView вместо свойства CurrentView текущего объекта Folder, который был возвращен Explorer.CurrentFolder.

Объект View позволяет создавать настраиваемые представления, которые позволяют лучше сортировать, группировать и в конечном счете просматривать данные всех разных типов. Существует множество различных типов представлений, которые обеспечивают гибкость, необходимую для создания и поддержания важных данных.

• Тип таблицы (olTableView) позволяет просматривать данные в простой полевой таблице.
• Тип вида календаря (olCalendarView) позволяет просматривать данные в формате календаря.
• Тип карты (olCardView) позволяет просматривать данные в серии карт. Каждая карта отображает информацию, содержащуюся в элементе, и может быть отсортирована.
• Тип представления значка (olIconView) позволяет просматривать данные в виде значков, похожих на папку Windows или проводник.
• Тип вида временной шкалы (olTimelineView) позволяет просматривать данные по мере их получения в настраиваемой линейной временной строке.

Представления определяются и настраиваются с использованием свойства XML объекта View. Свойство XML позволяет вам создавать и настраивать настраиваемую XML-схему, которая определяет различные функции представления.

Private Sub FormatHandoffMessages() 
    Dim objView As TableView 
    Dim objRule As AutoFormatRule 
    ' Check if the current view is a table view. 
    If Application.ActiveExplorer.CurrentView.ViewType = olTableView Then 
    ' Obtain a TableView object reference to the current view. 
    Set objView = Application.ActiveExplorer.CurrentView 
    ' Create a new rule that displays any message with a 
    ' subject line that starts with "HANDOFF" in 
    ' blue, bold, 8 point Courier New text. 
    Set objRule = objView.AutoFormatRules.Add("Handoff Messages") 
    With objRule 
     .Filter = """http://schemas.microsoft.com/mapi/proptag/0x0037001f""" & _ 
     " CI_STARTSWITH 'HANDOFF'" 
     With .Font 
     .Name = "Courier New" 
     .Size = "8" 
     .Bold = True 
     .Color = olColorBlue 
     End With 
    End With 
    ' Save and apply the table view. 
    objView.Save 
    objView.Apply 
    End If 
End Sub