Objeto UserDefinedProperty (Outlook)
Representa a definição de uma propriedade definida pelo usuário de um objeto Folder.
Comentários
Use UserDefinedProperties (index), em que o índice é um nome ou número de índice, para retornar um único objeto UserDefinedProperty .
Use o método Add do conjunto UserDefinedProperties de um objeto Folder para definir uma propriedade definida pelo usuário para essa pasta.
Use a propriedade Type para retornar o tipo de propriedade definida pelo usuário e a propriedade DisplayFormat para retornar o formato de exibição para a propriedade definida pelo usuário. Se a propriedade Type é definida como olCombination ou olFormula, use a propriedade Formula para retornar a fórmula usada para gerar valores para a propriedade definida pelo usuário.
Objeto UserDefinedProperty representa apenas a definição de uma propriedade definida pelo usuário, que é aplicável a todos os itens do Outlook contidos na pasta. Para recuperar ou alterar os valores de propriedade definida pelo usuário para um item do Outlook nessa pasta, use a propriedade UserProperties do item do Outlook, como um objeto MailItem, para recuperar a coleção UserProperties para esse item. Em seguida, você pode usar o objeto UserProperty para a propriedade apropriada de definidas pelo usuário para recuperar ou alterar o valor dessa propriedade definida pelo usuário para o item do Outlook.
Exemplo
O exemplo de VBA (Visual Basic for Applications) a seguir exibe o nome de um objeto Folder especificado, bem como o nome e o tipo de cada objeto UserDefinedProperty contido na coleção UserDefinedProperties do objeto Folder especificado, para a janela Imediata.
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
Métodos
| Nome |
|---|
| Delete |
Propriedades
| Nome |
|---|
| Aplicativo |
| Classe |
| DisplayFormat |
| Fórmula |
| Nome |
| Responsável |
| Sessão |
| Type |
Confira também
Referência de modelo de objeto do Outlook
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.