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 'Conversation'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| AlwaysDelete | Obrigatório | OlAlwaysDeleteConversation | Uma constante que indica se todos os itens existentes e novos que chegam na conversa são sempre movidos para a Pasta Excluída do repositório especificada pelo parâmetro Store . |
| Repositório | Obrigatório | Store | Especifica o repositório que contém a pasta Itens Excluídos para a qual itens novos e existentes da conversa deverão ser movidos. |
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 serão movidos para a pasta Itens Excluídos para o repositório 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 email exibido no Painel de Leitura como o item de email 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
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.