Outlook) (Category 对象

代表一个可作为 Outlook 项目分组依据的由用户定义的类别。

备注

Microsoft Outlook提供了与 Outlook 项目可以很容易地标识和分组为用户定义的类别的分类系统。 该 类别 对象表示用户定义的类别。

使用 命名空间 对象的 类别 属性的 Add 方法来创建新 类别 的对象,将该类别添加到主类别列表中为该命名空间。

使用 Name 属性可以指定类别的名称,使用 Color 属性可以指定针对该类别显示的颜色,使用 ShortcutKey 属性可以指定用来将该类别分配给 Outlook 用户界面中的 Outlook 项目的快捷键。 使用 CategoryID 属性可以检索类别的唯一标识符。

为项目分配类别

可以通过在下列对象的 Categories 属性中的逗号分隔字符串中指定相应的 Category 对象名,为 Outlook 项目分配类别:

Object Object
AppointmentItem RemoteItem
ContactItem ReportItem
DistListItem SharingItem
DocumentItem TaskItem
JournalItem TaskRequestAcceptItem
MailItem TaskRequestDeclineItem
MeetingItem TaskRequestItem
NoteItem TaskRequestUpdateItem
PostItem

示例

下面的 Visual Basic for Applications (VBA) 示例显示一个对话框,包含名称和默认 命名空间 的对象具有关联的 类别 集合中包含的每个 类别 对象的标识符。

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 
 

属性

名称
Application
CategoryBorderColor
CategoryGradientBottomColor
CategoryGradientTopColor
CategoryID
Color
名称
Parent
Session
ShortcutKey

另请参阅

Outlook 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。