Méthode StorageItem.Save (Outlook)

Article
04/07/2023

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

Objet StorageItem

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.

Partager via