PropertyAccessor, objet (Outlook)PropertyAccessor object (Outlook)

Permet de créer, obtenir, définir et supprimer des propriétés d’objets.Provides the ability to create, get, set, and delete properties on objects.

RemarquesRemarks

Utilisez l'objet propertyAccessor pour obtenir et définir des propriétés au niveau de l'élément qui ne sont pas explicitement exposées dans le modèle objet Outlook, ou les propriétés pour les objets non-Item suivants: AddressEntry, AddressList, Attachment, ExchangeDistributionList, ExchangeUser, Folder, Recipient et Store.Use the PropertyAccessor object to get and set item-level properties that are not explicitly exposed in the Outlook object model, or properties for the following non-item objects: AddressEntry, AddressList, Attachment, ExchangeDistributionList, ExchangeUser, Folder, Recipient, and Store.

Pour obtenir ou définir plusieurs propriétés personnalisées, utilisez l'objet propertyAccessor au lieu de l'objet UserProperties pour de meilleures performances.To get or set multiple custom properties, use the PropertyAccessor object instead of the UserProperties object for better performance.

Pour plus d'informations sur l'utilisation de l'objet propertyAccessor , voir Properties Overview.For more information on using the PropertyAccessor object, see Properties Overview.

ExempleExample

L'exemple de code suivant montre comment utiliser la méthode PropertyAccessor. GetProperty pour lire une propriété MAPI qui appartient à un objet MailItem mais qui n'est pas exposée dans le modèle objet Outlook, PR_TRANSPORT_MESSAGE_HEADERS.The following code sample demonstrates how to use the PropertyAccessor.GetProperty method to read a MAPI property that belongs to a MailItem but that is not exposed in the Outlook object model, 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

L'exemple de code suivant montre comment la méthode PropertyAccessor. SetProperties définit les valeurs de plusieurs propriétés.The next code sample demonstrates how the PropertyAccessor.SetProperties method sets the values of multiple properties. Si une propriété n’existe pas, la méthode SetProperties la crée à condition que l’objet parent prenne en charge la création de propriétés.If a property does not exist, then SetProperties will create the property as long as the parent object supports the creation of those properties. Si l'objet prend en charge une opération Save explicite, les propriétés sont enregistrées dans l'objet dès lors que l'opération Save explicite est appelée.If the object supports an explicit Save operation, then the properties are saved to the object when the explicit Save operation is called. Si l’objet ne prend pas en charge une opération Save explicite, les propriétés sont enregistrées dans l’objet lorsque la méthode SetProperties est appelée.If the object does not support an explicit Save operation, then the properties are saved to the object when SetProperties is called.

Sub DemoPropertyAccessorSetProperties() 
 
 Dim PropNames(), myValues() As Variant 
 
 Dim arrErrors As Variant 
 
 Dim prop1, prop2, prop3, prop4 As String 
 
 Dim i As Integer 
 
 Dim oMail As Outlook.MailItem 
 
 Dim oPA As Outlook.PropertyAccessor 
 
 'Get first item in the inbox 
 
 Set oMail = _ 
 
 Application.Session.GetDefaultFolder(olFolderInbox).Items(1) 
 
 'Names for properties using the MAPI string namespace 
 
 prop1 = "http://schemas.microsoft.com/mapi/string/" & _ 
 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/mylongprop" 
 
 prop2 = "http://schemas.microsoft.com/mapi/string/" & _ 
 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/mystringprop" 
 
 prop3 = "http://schemas.microsoft.com/mapi/string/" & _ 
 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/mydateprop" 
 
 prop4 = "http://schemas.microsoft.com/mapi/string/" & _ 
 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/myboolprop" 
 
 PropNames = Array(prop1, prop2, prop3, prop4) 
 
 myValues = Array(1020, "111-222-Kudo", Now(), False) 
 
 'Set values with SetProperties call 
 
 'If the properties do not exist, then SetProperties 
 
 'adds the properties to the object when saved. 
 
 'The type of the property is the type of the element 
 
 'passed in myValues array. 
 
 Set oPA = oMail.PropertyAccessor 
 
 arrErrors = oPA.SetProperties(PropNames, myValues) 
 
 If Not (IsEmpty(arrErrors)) Then 
 
 'Examine the arrErrors array to determine if any 
 
 'elements contain errors 
 
 For i = LBound(arrErrors) To UBound(arrErrors) 
 
 'Examine the type of the element 
 
 If IsError(arrErrors(i)) Then 
 
 Debug.Print (CVErr(arrErrors(i))) 
 
 End If 
 
 Next 
 
 End If 
 
 'Save the item 
 
 oMail.Save 
 
End Sub

MéthodesMethods

NomName
BinaryToStringBinaryToString
DeletePropertiesDeleteProperties
DeletePropertyDeleteProperty
GetPropertiesGetProperties
GetPropertyGetProperty
LocalTimeToUTCLocalTimeToUTC
SetPropertiesSetProperties
SetPropertySetProperty
StringToBinaryStringToBinary
UTCToLocalTimeUTCToLocalTime

PropriétésProperties

NomName
ApplicationApplication
ClassClass
ParentParent
SessionSession

Voir aussiSee also

Référence du modèle objet Outlook propertyAccessor, membres de l'objetOutlook Object Model Reference PropertyAccessor Object Members

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.