Como mover a mensagem de e-mail para a pasta especificada depois de ler no Outlook?

Mover a mensagem de e-mail para uma pasta específica após a leitura é a melhor maneira de manter a pasta Caixa de entrada limpa no Outlook. Para muitos usuários do Outlook, eles tendem a criar uma regra para a movimentação desses e-mails lidos. Na verdade, o Outlook não oferece suporte a esse processo do assistente de regra. Neste artigo, mostraremos como mover mensagens de e-mail para uma pasta especificada após ler com o código VBA no Outlook.

Mova a mensagem de e-mail para a pasta especificada após ler no Outlook

Mova a mensagem de e-mail para a pasta especificada após ler no Outlook

Você pode mover mensagens de e-mail para uma pasta específica depois de ler com o código VBA em execução no Outlook.

1. Em primeiro lugar, você precisa criar um novo nome de pasta “Avaliado”Na pasta Caixa de entrada.

2. Abra a pasta Caixa de entrada e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. Em seguida, clique duas vezes para expandir Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o VbaProject.OTM editor.

4. Em seguida, copie e cole o código VBA abaixo no editor VbaProject.OTM, conforme mostrado na captura de tela acima.

Código VBA: mover mensagens após lidas

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Em seguida, clique no Salvar botão para salvar o código VBA e, em seguida, feche o Microsoft Visual Basic para Aplicações janela.

6. Clique com o botão direito no Barra de Ferramentas de Acesso Rápidoe selecione Personalize a barra de ferramentas de acesso rápido no menu do botão direito. Veja a imagem:

7. No Opções do Outlook caixa de diálogo, você precisa:

1). Selecione Macros no Escolha comandos de lista suspensa;

2). Selecione Projeto 1. ThisOutlookSession na caixa sob o Escolha comandos de lista suspensa;

3). Clique no Adicionar botão;

4). Clique no OK botão.

8. Então você pode ver o Macro botão mostrado no Barra de Ferramentas de Acesso Rápido. Certifique-se de localizar na pasta da caixa de entrada da qual deseja mover todas as mensagens lidas e clique no botão Macro botão para executar o código VBA dentro da caixa de entrada.

Notas:

1. Este código VBA pode ser aplicado no Outlook 2007, 2010 e 2013; Mas, no Outlook 2007, você pode clicar diretamente no Execute botão para executar o código.

2. Se houver várias contas de e-mail em seu Outlook, o código VBA só pode ser aplicado na conta cujo arquivo de dados está definido como padrão. Você pode verificar o arquivo de dados padrão clicando em Envie o > Info > Configurações de conta > Configurações de conta para abrir o Configurações de conta caixa de diálogo. Então vá para o Arquivo de dados guia, você verá que o arquivo de dados padrão é marcado por antes.

3. Se você deseja alterar o arquivo de dados padrão para outra conta de e-mail, selecione e realce a conta que deseja definir como padrão e clique no botão Definir como padrão no Configurações de conta caixa de diálogo.

4. Ao executar o código VBA pela primeira vez e descobrir que as mensagens lidas não são movidas todas de uma vez, continue clicando no botão Macro até que todas as mensagens lidas na caixa de entrada sejam removidas.

---

Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos Pró: Salvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

Saiba Mais       Download grátis      Comprar