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:
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.
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.
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
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.