Skip to main content

Como mover a mensagem de email para uma pasta específica após a leitura no Outlook?

Author: Siluvia Last Modified: 2025-06-04

Mover a mensagem de email para uma pasta específica após a leitura é a melhor maneira de manter a pasta Caixa de Entrada organizada no Outlook. Para muitos usuários do Outlook, eles tendem a criar uma regra para mover esses emails lidos. Na verdade, o Outlook não suporta esse processo assistente de regras. Neste artigo, mostraremos como mover mensagens de email para uma pasta específica após a leitura usando código VBA no Outlook.

Mover mensagem de email para pasta específica após a leitura no Outlook

Office Tab - Ative a edição e navegação em abas no Microsoft Office, tornando o trabalho muito mais fácil.
Desbloqueie a versão gratuita do Kutools para Outlook agora e aproveite mais de 70 recursos com acesso ilimitado para sempre.
Potencialize seu Outlook 2024 - 2010 ou Outlook 365 com esses recursos avançados. Aproveite mais de 70 recursos poderosos e eleve sua experiência de email!

Mover mensagem de email para pasta específica após a leitura no Outlook

Você pode mover mensagens de email para uma pasta específica após a leitura executando um código VBA no Outlook.

1. Primeiro, você precisa criar uma nova pasta chamada “Reviewed” dentro da pasta Caixa de Entrada.

a new folder

2. Abra a pasta Caixa de Entrada e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

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

the VbaProject.OTM editor

4. Depois disso, copie e cole o seguinte código VBA no editor VbaProject.OTM, conforme mostrado na captura de tela acima.

Código VBA: mover mensagens após a leitura

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. Clique no botão Salvar para salvar o código VBA e feche a janela Microsoft Visual Basic for Applications.

6. Clique com o botão direito na Barra de Ferramentas de Acesso Rápido e selecione Personalizar Barra de Ferramentas de Acesso Rápido no menu de contexto. Veja a captura de tela:

the Customize Quick Access Toolbar buton

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

1). Selecionar Macros na lista suspensa Escolher comandos de;

2). Selecionar Project1. ThisOutlookSession na caixa abaixo da lista suspensa Escolher comandos de;

3). Clique no botão Adicionar;

4). Clique no botão OK.

the Outlook Options dialog box

8. Você verá o botão Macro aparecer na Barra de Ferramentas de Acesso Rápido. Certifique-se de que está localizado na pasta Caixa de Entrada de onde deseja mover todas as mensagens lidas, depois clique no botão Macro para executar o código VBA dentro da Caixa de Entrada.

the Macro button

Notas:

1. Este código VBA pode ser aplicado no Outlook 2007, 2010 e 2013; No entanto, no Outlook 2007, você pode clicar diretamente no botão Executar para rodar o código.

2. Se houver várias contas de email no seu Outlook, o código VBA só poderá ser aplicado à conta cujo arquivo de dados está definido como padrão. Você pode verificar o arquivo de dados padrão clicando em Arquivo > Informações > Configurações da Conta > Configurações da Conta para abrir a Configurações da Conta caixa de diálogo. Em seguida, vá para a aba Arquivo de Dados aba, você verá que o arquivo de dados padrão está marcado por the check mark antes.

the Account Settings dialog box

3. Se você quiser alterar o arquivo de dados padrão para outra conta de email, selecione e destaque a conta que deseja definir como padrão e clique em Definir como Padrão na caixa de diálogo Configurações da Conta.

4. Ao executar o código VBA pela primeira vez e perceber que as mensagens lidas não foram movidas de uma só vez, continue clicando no botão Macro até que todas as mensagens lidas da Caixa de Entrada sejam movidas.


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2