Método Folder.GetStorage (Outlook)

Obtém um objeto StorageItem do objeto pai Folder para armazenar dados de uma solução do Outlook.

Sintaxe

expression. GetStorage( _StorageIdentifier_ , _StorageIdentifierType_ )

Expressão Uma variável que representa um objeto Folder .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
StorageIdentifier	Obrigatório	String	Um identificador para o objeto StorageItem; Dependendo do tipo de identificador, o valor pode representar uma identificação de entrada, uma classe de mensagem ou um assunto.
StorageIdentifierType	Obrigatório	OlStorageIdentifierType	Especifica o tipo de identificador para o objeto StorageItem.

Valor de retorno

Um objeto StorageItem que é usado para armazenar dados para uma solução.

Comentários

O método GetStorage obtém um StorageItem em um objeto Folder usando o identificador especificado por StorageIdentifier e tem o tipo de identificador especificado por StorageIdentifierType. O StorageItem é um item oculto na pasta, que deslocam-se com a conta e está disponível online e offline.

Se você especificar o EntryID para o StorageItem usando o valor olIdentifyByEntryID para StorageIdentifierType , o método GetStorage retornará o StorageItem com o EntryID especificado. Se nenhum StorageItem pode ser encontradas que EntryID ou StorageItem não existir, o método GetStorage irá gerar um erro.

Se você especificar a classe de mensagem para o StorageItem usando o valor olIdentifyByMessageClass para StorageIdentifierType , o método GetStorage retornará o StorageItem com a classe de mensagem especificada. Se houver vários itens com a mesma classe de mensagem, o método GetStorage retorna o item com a mais recente PR_LAST_MODIFICATION_TIME. Se não existir um StorageItem com a classe de mensagem especificada, o método GetStorage criará um novo StorageItem com a classe de mensagem especificada pelo StorageIdentifier.

Se você especificar o assunto da StorageItem, o método GetStorage retornará o StorageItem com o assunto especificado na chamada GetStorage. Se houver vários itens com o mesmo assunto, o método GetStorage retornará o item com a mais recente PR_LAST_MODIFICATION_TIME. Se nenhum StorageItem existir com o Assunto especificado, o método GetStorage criará um novo StorageItem com o Assunto especificado por StorageIdentifier.

GetStorage retornará um erro se não há suporte para o tipo de repositório da pasta. Os seguintes repositórios retornam um erro quando GetStorage é chamado:

• Repositório do Hotmail

• Repositórios IMAP

• Repositórios de representante

• Repositórios de pastas públicas

O tamanho de um StorageItem recém-criado é zero (0) até que você faça uma chamada explícita no método Salvar do item.

Para obter mais informações sobre como armazenar dados para uma solução, consulte Armazenando dados de soluções.

Exemplo

O exemplo de código a seguir no Visual Basic for Applications mostra como usar o objeto StorageItem para armazenar dados particulares de solução. Ele salva os dados em uma propriedade personalizada de um objeto StorageItem na pasta caixa de entrada. O exemplo a seguir descreve as etapas:

1. O exemplo de código chama GetStorage para obter um objeto StorageItem existente com o assunto "Meu Storage privada" na caixa de entrada. Se nenhum StorageItem com esse assunto já existir, o GetStorage cria um objeto StorageItem com esse assunto.

2. Se o StorageItem recém-criado, o exemplo de código cria uma propriedade personalizada "Order Number" para o objeto. Observe que "Order Number" é uma propriedade de um item oculto na caixa de entrada.

3. O exemplo de código, em seguida, atribui um valor a "Order Number" e salva o objeto 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

Confira também

Objeto Folder

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.