Propriedade ItemProperty.IsUserProperty (Outlook)
Retorna um valor Boolean que indica se a propriedade item é uma propriedade personalizada criada pelo usuário. Somente leitura.
Sintaxe
expression. IsUserProperty
Expressão Uma variável que representa um objeto ItemProperty .
Exemplo
O exemplo a seguir exibe os nomes de todas as propriedades criadas pelo usuário. A sub-rotina DisplayUserProps
aceita uma coleção ItemProperties e pesquisa por meio dela, exibindo os nomes de todos os objetos ItemProperty em que o valor IsUserProperty é True. A coleção ItemProperties é baseado em zero. Em outras palavras, o primeiro objeto na coleção é acessado com um valor de índice zero (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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.