Método Conversation.SetAlwaysDelete (Outlook)

Especifica uma configuração para o repositório de entrega especificado que indica se todos os itens existentes e todos os novos itens que chegarem na conversa serão movidos para a pasta Itens Excluídos no repositório de entrega especificado.

Sintaxe

expression. SetAlwaysDelete( _AlwaysDelete_ , _Store_ )

expressão Uma variável que representa um objeto "Conversação".

Parâmetros

Comentários

O método SetAlwaysDelete opera em itens de conversa no repositório de entrega especificado pelo parâmetro Store. Se o repositório especificado pelo parâmetro Store representar um repositório sem entrega, como o repositório .pst de arquivo morto, a ação será aplicada a itens de conversa no repositório de entrega padrão.

Se o parâmetro AlwaysDelete for olAlwaysDelete, os itens de conversação são movidos para a pasta Itens Eliminados do arquivo especificado. Nesse caso, os itens não são permanentemente excluídos, a menos que o usuário especificou uma opção separada para excluir permanentemente os itens quando Microsoft Outlook desligado.

Se SetAlwaysDelete retornar olDoNotDelete, itens de conversa existentes e novos itens que chegarem na conversa não são movidos para a pasta Itens excluídos no repositório de entrega especificado e itens de conversa existentes na pasta Itens excluídos são movidos para a caixa de entrada.

Exemplo

O seguinte exemplo Visual Basic for Applications (VBA) mostra como definir a configuração de excluir sempre para a conversa de um item de email específicos. O exemplo de código, DemoSetAlwaysDelete, escolhe o primeiro item de correio apresentado no Painel de Leitura como o item de correio específico. DemoSetAlwaysDelete verifica se as conversas são habilitados na loja para o item de email, obtém a conversa que envolve esse item de email, se existe uma conversa e usa SetAlwaysDelete para sempre mover itens novos e existentes da conversa para a pasta Itens excluídos no mesmo repositório.

Sub DemoSetAlwaysDelete() 
 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.SetAlwaysDelete _ 
 olAlwaysDelete, 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.