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
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Repositório | Obrigatório | Store | Especifica o repositório para o qual a ação de parar excluir sempre se aplica. |
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, a ação stop-always-delete será aplicada a 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 de código, DemoStopAlwaysDelete, 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
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.