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:
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.
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.
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
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.