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
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.