Método StorageItem.Save (Outlook)

Guarda el objeto StorageItem.

Sintaxis

expresión. Salvar

Expresión Variable que representa un objeto StorageItem .

Comentarios

Si el objeto StorageItem no se ha guardado nunca antes, al Guardar, se guarda el elemento como elemento oculto en la carpeta en la que se llamó a Folder.GetStorage. Si el objeto StorageItem se ha guardado previamente y el elemento tiene con respecto a ha cambiado, Guardar guarda los cambios realizados en el elemento. Si el objeto StorageItem se ha guardado previamente y el elemento no se ha cambiado desde entonces, el método Save no hace nada.

Para obtener más información sobre cómo guardar datos de soluciones en un objeto StorageItem, vea Crear y guardar datos en el almacenamiento de soluciones.

Ejemplo:

El siguiente ejemplo de código en Visual Basic para aplicaciones muestra cómo usar el objeto StorageItem para almacenar datos privados de soluciones. Guarda los datos en una propiedad personalizada de un objeto StorageItem en la carpeta Bandeja de entrada. A continuación describe los pasos:

1. El ejemplo de código llama a Folder.GetStorage para obtener un objeto StorageItem existente que tenga el asunto "My Private Storage" en la Bandeja de entrada; Si no existe ningún objeto StorageItem con ese asunto, GetStorage crea un objeto StorageItem con ese asunto.

2. Si el objeto StorageItem recién creado, el ejemplo de código crea una propiedad personalizada "Order Number" para el objeto. Tenga en cuenta que "Order Number" es una propiedad de un elemento oculto en la Bandeja de entrada.

3. A continuación, el código de ejemplo asigna un valor a "Order Number" y guarda el objeto StorageItem.

Sub AssignStorageData() 
 
 Dim oInbox As Outlook.Folder 
 
 Dim myStorage As Outlook.StorageItem 
 
 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 ' Get an existing instance of StorageItem, or create new if it doesn't exist 
 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 ' If StorageItem is new, add a custom property for Order Number 
 
 If myStorage.Size = 0 Then 
 
 myStorage.UserProperties.Add "Order Number", olNumber 
 
 End If 
 
 ' Assign a value to the custom property 
 
 myStorage.UserProperties("Order Number").Value = 100 
 
 myStorage.Save 
 
End Sub

Consulte también

Objeto StorageItem

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.