Свойство ItemProperty.IsUserProperty (Outlook)

Возвращает логическое значение, указывающее, является ли свойство элемента пользовательским свойством, созданным пользователем. Только для чтения.

Синтаксис

выражение. IsUserProperty

Выражение Переменная, представляющая объект ItemProperty .

Пример

В следующем примере отображаются имена всех свойств, созданных пользователем. Подпрограмма DisplayUserProps принимает коллекцию ItemProperties и выполняет поиск по ней, отображая имена всех объектов ItemProperty , где значение IsUserProperty равно True. Коллекция ItemProperties основана на нулях. Иными словами, доступ к первому объекту в коллекции осуществляется со значением индекса, равным нулю (0).

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

См. также

Объект ItemProperty

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

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