UserDefinedProperties.Add, méthode (Outlook)

Crée un objet UserDefinedProperty et l’ajoute à la collection.

Syntaxe

expression. Add (Name, Type, DisplayFormat, Formula)

Expression Variable qui représente un objet UserDefinedProperties .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Name	Obligatoire	String	Nom de la nouvelle propriété définie par l'utilisateur.
Type	Requis	OlUserPropertyType	Type de la nouvelle propriété définie par l'utilisateur.
DisplayFormat	Facultatif	Variant	Format d’affichage de la nouvelle propriété définie par l’utilisateur. Vous pouvez attribuer à ce paramètre la valeur d’une énumération parmi plusieurs énumérations différentes, qui est déterminée par la constante OlUserPropertyType spécifiée dans le paramètre Type. Pour plus d’informations sur l’interaction entre Type et FormatAffichage, voir DisplayFormat, propriété.
Formule	Facultatif	Variant	Formule utilisée pour calculer les valeurs de la nouvelle propriété définie par l'utilisateur. Ce paramètre est ignoré si le paramètre Type a une valeur différente de olCombination ou olFormula.

Valeur renvoyée

Objet UserDefinedProperty représentant la nouvelle propriété définie par l'utilisateur.

Remarques

Vous pouvez créer une propriété d’un type défini par l’énumération OlUserPropertyType , à l’exception des types suivants : olEnumeration, olOutlookInternal et olSmartFrom.

Exemple

L'exemple Visual Basic pour Applications (VBA) suivant utilise la méthode Add pour créer et ajouter plusieurs objets UserDefinedProperty au dossier Boîte de réception par défaut.

Sub AddStatusProperties() 
 Dim objNamespace As NameSpace 
 Dim objFolder As Folder 
 Dim objProperty As UserDefinedProperty 
 
 ' Obtain a Folder object reference to the 
 ' Inbox default folder. 
 Set objNamespace = Application.GetNamespace("MAPI") 
 Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) 
 
 ' Add five user-defined properties, used to identify and 
 ' track customer issues. 
 With objFolder.UserDefinedProperties 
 Set objProperty = .Add("Issue?", olYesNo, olFormatYesNoIcon) 
 Set objProperty = .Add("Issue Research Time", olDuration) 
 Set objProperty = .Add("Issue Resolution Time", olDuration) 
 Set objProperty = .Add("Customer Follow-Up", olYesNo, olFormatYesNoYesNo) 
 Set objProperty = .Add("Issue Closed", olYesNo, olFormatYesNoYesNo) 
 End With 
End Sub

Voir aussi

UserDefinedProperties, objet

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.