Прочитать на английском

Поделиться через


Объект Category (Outlook)

Представляет определяемую пользователем категорию, по которой можно группировать элементы Outlook.

Замечания

Microsoft Outlook предоставляет систему классификации, с помощью которой элементы Outlook можно легко идентифицировать и группировать по определяемым пользователем категориям. Объект Category представляет определяемую пользователем категорию.

Используйте метод Add свойства Categories для объекта NameSpace , чтобы создать объект Category , добавив категорию в список основных категорий для этого пространства имен.

Используйте свойство Name , чтобы указать имя категории, свойство Color для указания цвета, отображаемого для этой категории, и свойство ShortcutKey , чтобы указать сочетание клавиш, используемый для назначения этой категории элементу Outlook в пользовательском интерфейсе Outlook. Используйте свойство CategoryID для получения уникального идентификатора для категории.

Назначение категорий элементам

Категории можно назначить элементам Outlook, указав имена соответствующих объектов Category в строке с разделителями-запятыми в свойстве Categories следующих объектов:

Пример

В следующем примере Visual Basic для приложений (VBA) отображается диалоговое окно, содержащее имена и идентификаторы для каждого объекта Category, содержащегося в коллекции Categories, связанной с объектом NameSpace по умолчанию.

Private Sub ListCategoryIDs() 
 
 Dim objNameSpace As NameSpace  
 Dim objCategory As Category  
 Dim strOutput As String 
  
  ' Obtain a NameSpace object reference. 
 
 Set objNameSpace = Application.GetNamespace("MAPI") 
  
  ' Check if the Categories collection for the Namespace 
 
 ' contains one or more Category objects. 
 
 If objNameSpace.Categories.Count > 0 Then 
 
 
 ' Enumerate the Categories collection. 
 
 For Each objCategory In objNameSpace.Categories 
 
 
 ' Add the name and ID of the Category object to 
 
 ' the output string. 
 
 strOutput = strOutput & objCategory.Name & _ 
 
 ": " & objCategory.CategoryID & vbCrLf 
 
 Next 
 
 End If 
  
 ' Display the output string. 
 
 MsgBox strOutput 
 
 
 ' Clean up. 
 
 Set objCategory = Nothing  
 Set objNameSpace = Nothing 
 
  
End Sub 
 

Свойства

См. также

Справочник по объектной модели Outlook

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.