Compartilhar via

Excluir dados para redefinir o armazenamento da solução

  • Artigo

Este tópico descreve como excluir dados de solução existentes para redefinir o repositório de soluções:

  1. Use Folder.GetStorage para obter um objeto StorageItem existente em uma pasta específica. Essa chamada retornará um novo objeto StorageItem se nenhum já existir.

  2. Use StorageItem.Delete para remover o objeto permanentemente da pasta.

  3. Use Folder.GetStorage para criar uma nova instância do objeto StorageItem com o mesmo assunto.

  4. Use o método Add de StorageItem.UserProperties para criar um número de pedido de propriedade personalizado.

  5. Set the Order Number property.

  6. Use StorageItem.Save para salvar o objeto StorageItem na pasta.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.