Метод PropertyAccessor.BinaryToString (Outlook)

Статья
04/07/2023

Преобразует массив байтов, указанный значением Value , в строку.

Синтаксис

выражение. BinaryToString( _Value_ )

Выражение Переменная, представляющая объект PropertyAccessor .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Value (Значение)	Обязательный	Variant	Представляет массив байтов для преобразования.

Возвращаемое значение

Шестнадцатеричная строка, представляющая преобразованное значение.

Замечания

Дополнительные сведения о преобразовании типов при использовании объекта PropertyAccessor см. в разделе Рекомендации по получению и настройке свойств.

Пример

Объектная модель Outlook предоставляет свойство EntryID для объектов элементов, чтобы получить идентификатор записи элемента. Это свойство представляет собой строку, представляющую значение свойства MAPI PR_ENTRYID этого элемента. Помимо свойства EntryID , можно также использовать метод PropertyAccessor.GetProperty , чтобы получить значение PR_ENTRYID для элемента, и использовать PropertyAccessor.BinaryToString для преобразования этого значения в строку. Эта строка должна соответствовать значению свойства EntryID для того же элемента. В следующем примере кода показана эквивалентность идентификатора записи, возвращаемого методом PropertyAccessor.GetProperty , и идентификатора записи, возвращаемого свойством EntryID для каждого элемента в папке "Входящие".

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

См. также

Объект PropertyAccessor

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через