Объект UserDefinedProperty (Outlook)

Статья
04/07/2023

Представляет определение определяемого пользователем свойства для объекта Folder .

Замечания

Используйте UserDefinedProperties (index), где index — это имя или номер индекса, чтобы вернуть один объект UserDefinedProperty .

Используйте метод Add коллекции UserDefinedProperties для объекта Folder , чтобы определить определяемое пользователем свойство для этой папки.

Используйте свойство Type для возврата определяемого пользователем типа свойства, а свойство DisplayFormat — для возврата формата отображения для определяемого пользователем свойства. Если для свойства Type задано значение olCombination или olFormula, используйте свойство Formula , чтобы вернуть формулу, используемую для создания значений для определяемого пользователем свойства.

Объект UserDefinedProperty представляет только определение определяемого пользователем свойства, которое применимо ко всем элементам Outlook, содержащимся в папке. Чтобы получить или изменить определяемые пользователем значения свойств для элемента Outlook в этой папке, используйте свойство UserProperties элемента Outlook, например объект MailItem , чтобы получить коллекцию UserProperties для этого элемента. Затем можно использовать объект UserProperty для соответствующего определяемого пользователем свойства, чтобы получить или изменить значение этого пользовательского свойства для элемента Outlook.

Пример

В следующем примере Visual Basic для приложений (VBA) в окне Интерпретация отображается имя указанного объекта Folder, а также имя и тип каждого объекта UserDefinedProperty, содержащегося в коллекции UserDefinedProperties указанного объекта Folder.

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

Методы

Имя
Delete

Свойства

Имя
Application
Class
DisplayFormat
Formula
Name
Parent
Session
Type

См. также

Справочник по объектной модели Outlook

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через