Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
Retorna um Object que representa o valor da propriedade especificado por SchemaName.
Sintaxe
expression.
GetProperty( _SchemaName_ )
expressão Uma variável que representa um objeto PropertyAccessor .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SchemaName | Obrigatório | String | O nome da propriedade cujo valor deve ser retornado. A propriedade é indicada pelo namespace. Para obter mais informações, consulte Fazendo referência a propriedades por namespace. |
Valor de retorno
Um valor Variante que representa o valor da propriedade pedida, conforme especificado por SchemaName.
Comentários
O tipo do valor de retorno será o mesmo que o tipo da propriedade subjacente. Certos tipos de propriedade brutos como PT_OBJECT não são suportados e irá gerar um erro. Se necessitar de conversão do tipo de propriedade não processada, por exemplo, de PT_BINARY para uma cadeia ou de PT_SYSTIME para uma hora local, utilize os métodos auxiliares PropertyAccessor.BinaryToString e PropertyAccessor.UTCToLocalTime.
Para obter mais informações sobre como obter propriedades com o objeto PropertyAccessor , veja Melhores Práticas para Obter e Definir Propriedades.
Exemplo
O exemplo de código a seguir demonstra como usar o método GetProperty para ler uma propriedade MAPI que pertence a um MailItem mas que não está exposta no modelo de objeto do Outlook, PR_TRANSPORT_MESSAGE_HEADERS.
Sub DemoPropertyAccessorGetProperty()
Dim PropName, Header As String
Dim oMail As Object
Dim oPA As Outlook.PropertyAccessor
'Get first item in the inbox
Set oMail = _
Application.Session.GetDefaultFolder(olFolderInbox).Items(1)
'PR_TRANSPORT_MESSAGE_HEADERS
PropName = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
'Obtain an instance of PropertyAccessor class
Set oPA = oMail.PropertyAccessor
'Call GetProperty
Header = oPA.GetProperty(PropName)
Debug.Print (Header)
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.