Partager via

Stocker des données dans un objet StorageItem pour une solution

  • Article

Cette rubrique explique comment stocker des données d'application confidentielles dans un emplacement de stockage de solutions fourni par le modèle objet Outlook.

  1. Déterminez dans quel dossier vous voulez stocker vos données d'application.

Note Étant donné que le stockage de solution est créé en tant qu’éléments masqués dans un dossier, vous ne pouvez stocker les données de solution que si le fournisseur de magasin prend en charge les éléments masqués et que le client dispose des droits d’écriture dans ce dossier. 2. Utilisez Folder.GetStorage pour obtenir un objet StorageItem existant ou un nouvel objet StorageItem s’il n’en existe pas déjà un.

  1. Utilisez StorageItem.Size pour déterminer si l’objet StorageItem est nouveau. Si c’est le cas, utilisez la méthode Add de StorageItem.UserProperties pour créer une propriété personnalisée Numéro de commande.

  2. Définissez la propriété Order Number. Cela suppose qu'un objet StorageItem existant contient déjà la propriété personnalisée Order Number et que celle-ci est définie.

  3. Utilisez StorageItem.Save pour enregistrer l’objet StorageItem en tant qu’élément masqué dans le dossier.

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

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.