Objet UserDefinedProperty (Outlook)

Représente la définition d’une propriété définie par l’utilisateur pour un objet Folder .

Remarques

Utilisez UserDefinedProperties (index), où index est un nom ou un numéro d’index, pour renvoyer un seul objet UserDefinedProperty .

Utilisez la méthode Add de la collection UserDefinedProperties pour un objet Folder afin de définir une propriété définie par l’utilisateur pour ce dossier.

Utilisez la propriété Type pour renvoyer le type de propriété défini par l’utilisateur et la propriété DisplayFormat pour renvoyer le format d’affichage de la propriété définie par l’utilisateur. Si la propriété Type a la valeur olCombination ou olFormula, utilisez la propriété Formula afin de renvoyer la formule utilisée pour générer des valeurs de la propriété définie par l'utilisateur.

L'objet UserDefinedProperty ne représente que la définition d'une propriété définie par l'utilisateur, applicable à tous les éléments Outlook contenus dans le dossier. Pour récupérer ou modifier les valeurs de propriété définies par l’utilisateur pour un élément Outlook dans ce dossier, utilisez la propriété UserProperties de l’élément Outlook, par exemple un objet MailItem , afin de récupérer la collection UserProperties de cet élément. Vous pouvez ensuite utiliser l’objet UserProperty pour la propriété définie par l’utilisateur appropriée afin de récupérer ou de modifier la valeur de cette propriété définie par l’utilisateur pour l’élément Outlook.

Exemple

L'exemple Visual Basic pour Applications (VBA) suivant affiche le nom d'un objet Folder spécifié, ainsi que le nom et le type de chaque objet UserDefinedProperty contenu dans la collection UserDefinedProperties de l'objet Folder spécifié dans la fenêtre Exécution.

Sub DisplayUserProperties(ByRef FolderToCheck As Folder) 
 Dim objProperty As UserDefinedProperty 
 
 ' Print the name of the specified Folder object 
 ' reference to the Immediate window. 
 Debug.Print "--- Folder: " & FolderToCheck.Name 
 
 ' Check if there are any user-defined properties 
 ' associated with the Folder object reference. 
 If FolderToCheck.UserDefinedProperties.Count = 0 Then 
 ' No user-defined properties are present. 
 Debug.Print " No user-defined properties." 
 Else 
 ' Iterate through every user-defined property in 
 ' the folder. 
 For Each objProperty In FolderToCheck.UserDefinedProperties 
 ' Retrieve the name of the user-defined property. 
 strPropertyInfo = objProperty.Name 
 ' Retrieve the type of the user-defined property. 
 Select Case objProperty.Type 
 Case OlUserPropertyType.olCombination 
 strPropertyInfo = strPropertyInfo & " (Combination)" 
 Case OlUserPropertyType.olCurrency 
 strPropertyInfo = strPropertyInfo & " (Currency)" 
 Case OlUserPropertyType.olDateTime 
 strPropertyInfo = strPropertyInfo & " (Date/Time)" 
 Case OlUserPropertyType.olDuration 
 strPropertyInfo = strPropertyInfo & " (Duration)" 
 Case OlUserPropertyType.olEnumeration 
 strPropertyInfo = strPropertyInfo & " (Enumeration)" 
 Case OlUserPropertyType.olFormula 
 strPropertyInfo = strPropertyInfo & " (Formula)" 
 Case OlUserPropertyType.olInteger 
 strPropertyInfo = strPropertyInfo & " (Integer)" 
 Case OlUserPropertyType.olKeywords 
 strPropertyInfo = strPropertyInfo & " (Keywords)" 
 Case OlUserPropertyType.olNumber 
 strPropertyInfo = strPropertyInfo & " (Number)" 
 Case OlUserPropertyType.olOutlookInternal 
 strPropertyInfo = strPropertyInfo & " (Outlook Internal)" 
 Case OlUserPropertyType.olPercent 
 strPropertyInfo = strPropertyInfo & " (Percent)" 
 Case OlUserPropertyType.olSmartFrom 
 strPropertyInfo = strPropertyInfo & " (Smart From)" 
 Case OlUserPropertyType.olText 
 strPropertyInfo = strPropertyInfo & " (Text)" 
 Case OlUserPropertyType.olYesNo 
 strPropertyInfo = strPropertyInfo & " (Yes/No)" 
 Case Else 
 strPropertyInfo = strPropertyInfo & " (Unknown)" 
 End Select 
 
 ' Print the name and type of the user-defined property 
 ' to the Immediate window. 
 Debug.Print strPropertyInfo 
 Next 
 End If 
End Sub 

Méthodes

Nom
Delete

Propriétés

Nom
Application
Class
DisplayFormat
Formula
Name
Parent
Session
Type

Voir aussi

Référence du modèle objet Outlook

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.