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 "Conversação".

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 arquivo especificado pelo parâmetro Store representar um arquivo de entrega não entregue, como um arquivo .pst store de arquivo, a ação stop-always-delete é aplicada aos itens de conversação no arquivo de entrega predefinido.

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 de código, DemoStopAlwaysDelete, escolhe o primeiro item de correio apresentado no Painel de Leitura como o item de correio 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.