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.