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