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
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.