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

Objeto UserDefinedProperties

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.