Almacenar datos en un objeto StorageItem para una solución

En este tema se describe cómo almacenar datos privados de aplicaciones en almacenamientos de soluciones proporcionados por el modelo de objetos de Outlook.

1. Determine la carpeta donde desee guardar los datos de aplicaciones.

Nota Dado que el almacenamiento de la solución se crea como elementos ocultos en una carpeta, solo puede almacenar los datos de la solución si el proveedor de almacenamiento admite elementos ocultos y el cliente tiene derechos para escribir en esa carpeta. 2. Use Folder.GetStorage para obtener un objeto StorageItem existente o un nuevo objeto StorageItem si aún no existe.

3. Utilice la propiedad StorageItem.Size para determinar si StorageItem es nuevo. En caso afirmativo, utilice el método Add de StorageItem.UserProperties para crear una propiedad personalizada, Order Number.

4. Establezca la propiedad Order Number. Se supone que ya existe un objeto StorageItem que tiene definida la propiedad personalizada Order Number.

5. Utilice StorageItem.Save para guardar el objeto StorageItem como elemento oculto en la carpeta.

Sub StoreData() 
 Dim oInbox As Folder 
 Dim myStorage As StorageItem 
 Dim myPrivateProperty As UserProperty 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 ' Get an existing instance of StorageItem by subject, or create new if it doesn't exist 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 If myStorage.Size = 0 Then 
 'There was no existing StorageItem by this subject, so created a new one 
 'Create a custom property for Order Number 
 Set myPrivateProperty = myStorage.UserProperties.Add("Order Number", olNumber) 
 Else 
 'Assume that existing storage has the Order Number property already 
 Set myPrivateProperty = myStorage.UserProperties("Order Number") 
 End If 
 myPrivateProperty.Value = lngOrderNumber 
 myStorage.Save 
End Sub

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.