Propriété Category.Color (Outlook)
Renvoie ou définit une constante OlCategoryColor qui indique la couleur utilisée par l’objet Category . Lecture-écriture.
Syntaxe
expression. Couleur
Expression Variable qui représente un objet Category .
Remarques
Vous pouvez partager la même couleur pour plusieurs catégories en spécifiant la même constante qui représente la couleur de catégorie dans l’énumération OlCategoryColor pour ces objets Category .
Exemple
L'exemple Visual Basic for Applications (VBA) suivant affiche une boîte de dialogue contenant les couleurs affectées à chaque objet Category de la collection Categories associée à l'objet NameSpace par défaut.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour