Método Conversation.StopAlwaysDelete (Outlook)

Interrompe a ação de sempre mover itens de conversa do repositório especificado para a pasta Itens Excluídos desse repositório.

Sintaxe

expression. StopAlwaysDelete( _Store_ )

expressão Uma variável que representa um objeto 'Conversation'.

Parâmetros

Comentários

Se a ação de excluir sempre não tiver sido ativada, StopAlwaysDelete não executará qualquer ação.

Se a ação de excluir sempre tiver sido ativada (chamando o método SetAlwaysDelete , movimentações StopAlwaysDelete existente itens de conversa na pasta Itens excluídos para a caixa de entrada.

Depois de chamar o método StopAlwaysDelete para uma conversa em um repositório, a chamada do método GetAlwaysDelete nessa conversa e repositório retorna a constante olDoNotDelete.

Se o repositório especificado pelo parâmetro Store representar um repositório que não é de entrega, como um repositório .pst de arquivo morto, a ação de parar sempre excluir será aplicada aos itens de conversa no repositório de entrega padrão.

Chamar esse método em uma conversa que já está na pasta Itens excluídos do repositório especificado retornará um erro.

Exemplo

O seguinte exemplo Visual Basic for Applications (VBA) mostra como impedir que a ação de excluir sempre para a conversa de um item de email específicos. O exemplo DemoStopAlwaysDeletede código , escolhe o primeiro item de email exibido no Painel de Leitura como o item de email específico. DemoStopAlwaysDelete verifica se conversas estão habilitados no repositório para o item de email, obtém a conversa que envolve esse item de email, se existe uma conversa e usa SetAlwaysDelete para parar a ação de excluir sempre para essa conversa em desse repositório.

Sub DemoStopAlwaysDelete() 
 Dim oMail As Outlook.MailItem 
 Dim oConv As Outlook.Conversation 
 Dim oStore As Outlook.Store 
 
 ' Get the item displayed in the Reading Pane. 
 Set oMail = ActiveExplorer.Selection(1) 
 Set oStore = oMail.Parent.Store 
 If oStore.IsConversationEnabled Then 
 Set oConv = oMail.GetConversation 
 If Not (oConv Is Nothing) Then 
 oConv.StopAlwaysDelete oStore 
 End If 
 End If 
End Sub

Confira também

Objeto Conversation

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.