Partager via

Supprimer des données pour réinitialiser le stockage de la solution

  • Article

Cette rubrique explique comment supprimer des données de solutions existantes pour réinitialiser l'emplacement de stockage de solutions :

  1. Utilisez Folder.GetStorage pour obtenir un objet StorageItem existant dans un dossier spécifique. Cet appel retourne un nouvel objet StorageItem s’il n’en existe pas déjà.

  2. Utilisez StorageItem.Delete pour supprimer définitivement l’objet du dossier.

  3. Utilisez la méthode Folder.GetStorage pour créer une nouvelle occurrence de StorageItem reprenant le même objet.

  4. Utilisez la méthode Add de StorageItem.UserProperties pour créer un numéro de commande de propriété personnalisée.

  5. Définissez la propriété Order Number.

  6. Utilisez StorageItem.Save pour enregistrer l’objet StorageItem 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 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 'Remove the storage permanently assuming it's old 
 myStorage.Delete 
 Set myStorage = Nothing 
 
 'Get a new instance of StorageItem in the Inbox 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 'Create custom property for Order Number 
 Set myPrivateProperty = myStorage.UserProperties.Add("Order Number", olNumber) 
 
 'Store application data in the Order Number property 
 myPrivateProperty.Value = 1000 
 
 'Save the data to the Inbox 
 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.