Objeto PropertyAccessor (Outlook)

Proporciona la capacidad para crear, obtener, establecer y eliminar propiedades de los objetos.

Comentarios

Utilizar el objeto PropertyAccessor para obtener y establecer propiedades de nivel de elemento que no se exponen explícitamente en el modelo de objetos de Outlook o propiedades para los siguientes objetos de tipo item: AddressEntry, AddressList, Attachment, ExchangeDistributionList, ExchangeUser, carpeta, destinatario y almacén.

Para obtener o establecer varias propiedades personalizadas, utilice el objeto PropertyAccessor en lugar del objeto UserProperties para mejorar el rendimiento.

Para obtener más información sobre cómo utilizar el objeto PropertyAccessor, vea Descripción general de las propiedades.

Ejemplo:

El ejemplo de código siguiente muestra cómo utilizar el método PropertyAccessor.GetProperty para leer una propiedad MAPI que pertenece a un objeto MailItem pero que no está expuesta en el modelo de objetos de Outlook, 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

El ejemplo de código siguiente muestra cómo el método PropertyAccessor.SetProperties establece los valores de varias propiedades. Si una propiedad no existe, SetProperties la creará, siempre que el objeto primario admita la creación de dichas propiedades. Si el objeto admite explícita operación Guardar, entonces las propiedades se guardarán en el objeto cuando la explícita se denomina operación de Guardar. Si el objeto no admite explícita la operación de Guardar y, a continuación, las propiedades se guardarán en el objeto cuando se llame a SetProperties.

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 don't 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étodos

Nombre
BinaryToString
DeleteProperties
DeleteProperty
GetProperties
GetProperty
LocalTimeToUTC
SetProperties
SetProperty
StringToBinary
UTCToLocalTime

Propiedades

Nombre
Aplicación
Class
Parent
Session

Consulte también

Referencia del modelo de objetos de Outlook PropertyAccessor (miembros de objeto)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.