Método StorageItem.Save (Outlook)

Salva o objeto StorageItem.

Sintaxe

expressão. Salvar

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

Comentários

Se o StorageItem nunca tiver sido salvo antes, Salvar salva o item como um item oculto na pasta na qual o Folder. getstorage foi chamado. Se o StorageItem tenha sido salva anteriormente e o item tiver desde foi alterada, Salvar salva as alterações no item. Se o StorageItem tenha sido salva anteriormente e o item não foi alterado desde então, o método Save não fará nada.

Para obter mais informações sobre como salvar dados de solução em um objeto StorageItem, consulte Criando e salvando dados para repositório 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 Folder. 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 StorageItem

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.