共用方式為

Category.Color 屬性 (Outlook)

  • 發行項

會傳回或設定 OlCategoryColor 常數，指出 Category 物件所使用的色彩。 讀取/寫入。

語法

運算式。顏色

表達 代表 Category 物件的變數。

註解

您可以為多個類別共用相同的色彩，方法是指定代表這些Category 物件之OlCategoryColor列舉中類別色彩的相同常數。

範例

下列的 Visual Basic for Applications (VBA) 範例針對包含在與預設的 NameSpace 物件相關聯之 Categories 集合所包含的每個 Category 物件，顯示包含其色彩指定的對話方塊。

Private Sub ListCategoryColors() 
 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, checking 
 ' the value of the Color property for 
 ' each Category object. 
 For Each objCategory In objNameSpace.Categories 
 
 ' Add the name of the Category object to 
 ' the output string. 
 strOutput = strOutput & objCategory.Name 
 
 ' Add information about the assigned color 
 ' to the output string. 
 Select Case objCategory.Color 
 Case OlCategoryColor.olCategoryColorNone 
 strOutput = strOutput & ": No color" & vbCrLf 
 Case OlCategoryColor.olCategoryColorBlack 
 strOutput = strOutput & ": Black " & vbCrLf 
 Case OlCategoryColor.olCategoryColorBlue 
 strOutput = strOutput & ": Blue" & vbCrLf 
 Case OlCategoryColor.olCategoryColorGray 
 strOutput = strOutput & ": Gray" & vbCrLf 
 Case OlCategoryColor.olCategoryColorGreen 
 strOutput = strOutput & ": Green" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightBlue 
 strOutput = strOutput & ": Light blue" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightGray 
 strOutput = strOutput & ": Light gray" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightGreen 
 strOutput = strOutput & ": Light green" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightMaroon 
 strOutput = strOutput & ": Light maroon" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightOlive 
 strOutput = strOutput & ": Light olive" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightOrange 
 strOutput = strOutput & ": Light orange" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightPeach 
 strOutput = strOutput & ": Light peach" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightPurple 
 strOutput = strOutput & ": Light purple" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightRed 
 strOutput = strOutput & ": Light red" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightSteel 
 strOutput = strOutput & ": Light steel" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightTeal 
 strOutput = strOutput & ": Light teal" & vbCrLf 
 Case OlCategoryColor.olCategoryColorLightYellow 
 strOutput = strOutput & ": Light yellow" & vbCrLf 
 Case OlCategoryColor.olCategoryColorMaroon 
 strOutput = strOutput & ": Maroon" & vbCrLf 
 Case OlCategoryColor.olCategoryColorOlive 
 strOutput = strOutput & ": Olive" & vbCrLf 
 Case OlCategoryColor.olCategoryColorOrange 
 strOutput = strOutput & ": Orange" & vbCrLf 
 Case OlCategoryColor.olCategoryColorPeach 
 strOutput = strOutput & ": Peach" & vbCrLf 
 Case OlCategoryColor.olCategoryColorPurple 
 strOutput = strOutput & ": Purple" & vbCrLf 
 Case OlCategoryColor.olCategoryColorRed 
 strOutput = strOutput & ": Red" & vbCrLf 
 Case OlCategoryColor.olCategoryColorSteel 
 strOutput = strOutput & ": Steel" & vbCrLf 
 Case OlCategoryColor.olCategoryColorTeal 
 strOutput = strOutput & ": Teal" & vbCrLf 
 Case OlCategoryColor.olCategoryColorYellow 
 strOutput = strOutput & ": Yellow" & vbCrLf 
 Case Else 
 strOutput = strOutput & ": Unknown" & vbCrLf 
 End Select 
 Next 
 End If 
 
 ' Display the output string. 
 MsgBox strOutput 
 
 ' Clean up. 
 Set objCategory = Nothing 
 Set objNameSpace = Nothing 
 
End Sub

另請參閱

Category 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。