Dim oSel As Outlook.Selection
Set oSel = Outlook.Application.ActiveExplorer.Selection
Dim oEmail As Outlook.mailitem
Set oEmail = oSel.Item(1)
Я использую сетевой ресурс и хочу
1) получить цвет, т.е. серый (olCategoryColorGray = 13), назначенный текущему выбранному почтовому элементу (oEmail имеет серый цвет) и,
2) назначьте ему другую цветовую категорию, например красный (olCategoryColorRed = 1).
Мы будем очень благодарны за вашу любезную помощь.
Вам необходимо использовать Категории класса MailItem, чтобы получить список категорий, присвоенных элементу. Категории - это разделенная строка имен категорий, назначенных элементу Outlook.
Используйте Color класса Category, чтобы получить константу OlCategoryColor, которая указывает цвет, используемый объектом Category. Вы можете использовать один и тот же цвет для нескольких категорий, указав одну и ту же константу, которая представляет цвет категории в перечислении OlCategoryColor для этих объектов Category.
private void EnumerateCategories()
{
Outlook.Categories categories = Application.Session.Categories;
foreach (Outlook.Category category in categories)
{
Debug.WriteLine(category.Name);
Debug.WriteLine(category.CategoryID);
Debug.WriteLine(category.Color);
}
}
private void AddACategory()
{
Outlook.Categories categories = Application.Session.Categories;
if (!CategoryExists("ISV"))
{
Outlook.Category category = categories.Add("ISV",
Outlook.OlCategoryColor.olCategoryColorDarkBlue,
Outlook.OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF11);
}
}
private bool CategoryExists(string categoryName)
{
try
{
Outlook.Category category = Application.Session.Categories[categoryName];
if(category != null)
{
return true;
}
else
{
return false;
}
}
catch { return false; }
}
