Método UserDefinedProperties.Add (Outlook)
Cria um novo objeto UserDefinedProperty e o acrescenta ao conjunto.
Sintaxe
expressão. Adicionar (Nome, Tipo, DisplayFormat, Fórmula)
Expressão Uma variável que representa um objeto UserDefinedProperties .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Name | Obrigatório | String | O nome da nova propriedade definida pelo usuário. |
| Type | Obrigatório | OlUserPropertyType | O tipo da nova propriedade definida pelo usuário. |
| DisplayFormat | Opcional | Variant | O formato de exibição da nova propriedade definida pelo usuário. Esse parâmetro pode ser definido como um valor de uma das várias enumerações diferentes, determinadas pela constante OlUserPropertyType especificada no parâmetro Type. Para obter mais informações sobre como Type e DisplayFormat interagem, consulte Propriedade DisplayFormat. |
| Fórmula | Opcional | Variant | A fórmula usada para calcular valores para a nova propriedade definida pelo usuário. Esse parâmetro será ignorado se o parâmetro Type for definido como qualquer valor diferente de olCombination ou olFormula. |
Valor de retorno
Um objeto UserDefinedProperty que representa a nova propriedade definida pelo usuário.
Comentários
Você pode criar uma propriedade de um tipo definido pela enumeração OlUserPropertyType, exceto para os seguintes tipos: olEnumeration, olOutlookInternale olSmartFrom.
Exemplo
O seguinte exemplo Visual Basic for Applications (VBA) usa o método Add para criar e adicionar vários objetos UserDefinedProperty à pasta Inbox padrão.
Sub AddStatusProperties()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objProperty As UserDefinedProperty
' Obtain a Folder object reference to the
' Inbox default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
' Add five user-defined properties, used to identify and
' track customer issues.
With objFolder.UserDefinedProperties
Set objProperty = .Add("Issue?", olYesNo, olFormatYesNoIcon)
Set objProperty = .Add("Issue Research Time", olDuration)
Set objProperty = .Add("Issue Resolution Time", olDuration)
Set objProperty = .Add("Customer Follow-Up", olYesNo, olFormatYesNoYesNo)
Set objProperty = .Add("Issue Closed", olYesNo, olFormatYesNoYesNo)
End With
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.