Propriété ItemProperty.IsUserProperty (Outlook)
Renvoie une valeur de type Boolean qui indique si la propriété d'élément est une propriété personnalisée créée par l'utilisateur. En lecture seule.
Syntaxe
expression. IsUserProperty
Expression Variable qui représente un objet ItemProperty .
Exemple
L'exemple suivant affiche le nom de toutes les propriétés créées par l'utilisateur. La sous-routine DisplayUserProps accepte une collection ItemProperties et la recherche dans celle-ci, affichant les noms de tous les objets ItemProperty pour lesquels la valeur IsUserProperty a la valeur True. La collection ItemProperties commence à la valeur zéro. En d'autres termes, le premier objet de la collection a la valeur zéro (0) comme valeur d'index.
Sub ItemProperty()
'Creates a new mail item and access it's properties
Dim objMail As MailItem
Dim objitems As ItemProperties
'Create the mail item
Set objMail = Application.CreateItem(olMailItem)
'Create a reference to the item properties collection
Set objitems = objMail.ItemProperties
'Create a reference to the item property page
Call DisplayUserProps(objitems)
End Sub
Sub DisplayUserProps(ByVal objitems As ItemProperties)
'Displays the names of all user-created item properties in the collection
For i = 0 To objitems.Count - 1
'Display name of property if it was created by the user
If objitems.Item(i).IsUserProperty = True Then
MsgBox "The property " & objitems(i).Name & " was created by the user."
End If
Next i
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.