Método PropertyAccessor.BinaryToString (Outlook)

Converte a matriz de bytes especificada pelo Valor em uma Cadeia de Caracteres.

Sintaxe

expression. BinaryToString( _Value_ )

Expressão Uma variável que representa um objeto PropertyAccessor .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Valor	Obrigatório	Variant	Representa a matriz de bytes a ser convertida.

Valor de retorno

Um hexadecimal String que representa o valor convertido.

Comentários

Para obter mais informações sobre a conversão de tipo ao usar o objeto PropertyAccessor , consulte Melhores Práticas para Obter e Definir Propriedades.

Exemplo

O modelo de objeto do Outlook expõe uma propriedade EntryID para objetos de item obter o ID de entrada de um item. Essa propriedade é uma cadeia de caracteres representando o valor da propriedade de MAPI PR_ENTRYID, desse item. Além da propriedade EntryID, você também pode usar o método Propertyaccessor para obter o valor da PR_ENTRYID para um item e use PropertyAccessor.BinaryToString para converter o valor em uma cadeia de caracteres. Esta cadeia de caracteres deve coincidir com o valor da propriedade EntryID para o mesmo item. O exemplo de código a seguir mostra a equivalência de retornadas pelo método Propertyaccessor a identificação de entrada e a identificação de entrada retornado pela propriedade EntryID para cada item na caixa de entrada.

Sub TestEntryIDs() 
 Dim oMsg As Object 
 Dim oFolder As Outlook.Folder 
 Dim oItems As Outlook.Items 
 Dim oPA As Outlook.PropertyAccessor 
 Dim EntryID1 As String, EntryID2 As String, EntryIDProperty As String 
 
 'This is the MAPI property PR_ENTRYID referenced with its MAPI proptag namespace 
 EntryIDProperty = "http://schemas.microsoft.com/mapi/proptag/0x0FFF0102" 
 Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 Set oItems = oFolder.Items 
 For Each oMsg In oItems 
 Set oPA = oMsg.PropertyAccessor 
 'First use the EntryID property of the item 
 EntryID1 = oMsg.EntryID 
 'Then use the PropertyAccessor 
 EntryID2 = oPA.BinaryToString(oPA.GetProperty(EntryIDProperty)) 
 'The string equivalents of the two Entry IDs should be the same 
 If EntryID1 <> EntryID2 Then 
 Debug.Print "Error obtaining EntryID for " & oMsg.Subject 
 End If 
 Next 
End Sub

Confira também

Objeto PropertyAccessor

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.