PropertyAccessor.BinaryToString, méthode (Outlook)
Convertit le tableau d'octets spécifié par Value en données de type String.
Syntaxe
expression. BinaryToString( _Value_ )
Expression Variable qui représente un objet PropertyAccessor .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Valeur | Obligatoire | Variant | Représente le tableau d'octets à convertir. |
Valeur renvoyée
Chaîne hexadécimale qui représente la valeur convertie.
Remarques
Pour plus d’informations sur la conversion de type lors de l’utilisation de l’objet PropertyAccessor , consultez Meilleures pratiques pour obtenir et définir des propriétés.
Exemple
Le modèle objet Outlook expose une propriété EntryID d’objets d’éléments pour obtenir l’identificateur d’entrée d’un élément. Cette propriété est une chaîne représentant la valeur de la propriété MAPI, PR_ENTRYID, de cet élément. À part la propriété EntryID, vous pouvez également utiliser la méthode PropertyAccessor.GetProperty pour obtenir la valeur de la propriété PR_ENTRYID d’un élément et la méthode PropertyAccessor.BinaryToString pour convertir cette valeur en chaîne. Cette chaîne doit correspondre à la valeur de la propriété EntryID pour le même élément. L’exemple de code suivant montre l’équivalence de l’ID d’entrée retourné par la méthode PropertyAccessor.GetProperty et de l’ID d’entrée retourné par la propriété EntryID pour chaque élément de la boîte de réception.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.