Méthode StorageItem.Save (Outlook)
Enregistre l’élément StorageItem.
Syntaxe
expression. Sauvegarder
Expression Variable qui représente un objet StorageItem .
Remarques
Si l’objet StorageItem n’a jamais été enregistré, la méthode Save enregistre l’élément en tant qu’élément masqué de l’objet Folder pour lequel Folder.GetStorage a été appelé. Si l’objet StorageItem a déjà été enregistré et que l’élément a été modifié depuis, la méthode Save enregistre les modifications apportées à l’élément. Si l’objet StorageItem a déjà été enregistré et que l’élément n’a pas été modifié depuis, la méthode Save n’a aucun effet.
Pour plus d’informations sur l’enregistrement des données de solution pour un objet StorageItem, voir Création et enregistrement de données dans un emplacement de stockage de solutions.
Exemple
L'exemple de code Visual Basic pour Applications suivant montre comment utiliser l'objet StorageItem pour enregistrer les données de solution privées. Il montre comment enregistrer les données dans une propriété personnalisée d'un objet StorageItem du dossier Boîte de réception. Voici la procédure :
L’exemple de code appelle Folder.GetStorage pour obtenir un objet StorageItem existant dont l’objet est « Mon stockage privé » dans la boîte de réception ; si aucun objet StorageItem n’existe déjà, GetStorage crée un objet StorageItem avec cet objet.
Si l'objet StorageItem vient d'être créé, l'exemple de code crée une propriété « Order Number » pour cet objet. Notez qu'il s'agit d'une propriété d'un élément masqué de la Boîte de réception.
L’exemple de code affecte ensuite une valeur à « Numéro de commande » et enregistre l’objet 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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette 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.