Como classificar os emails por mês no Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Se houver muitos emails na sua Caixa de Entrada, para deixar a caixa de email organizada e arrumada, você pode armazená-los ou arquivá-los em diferentes pastas com base no mês específico da hora de recebimento dos emails, conforme mostrado na captura de tela abaixo. Normalmente, você pode criar as pastas manualmente e depois movê-las uma a uma. Obviamente, essa abordagem será demorada e trabalhosa. Neste artigo, vou falar sobre um código VBA para resolver essa tarefa de forma rápida e fácil.

classify-emails-by-month/doc-classify-by-month-1

Classifique os emails com base no mês usando o código VBA

Para mover os emails para diferentes pastas com base no mês, aplique o seguinte código VBA:

1. Clique para selecionar a pasta Caixa de Entrada que deseja classificar os emails.

2. Pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Classifique os emails com base no mês

Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
  DoEvents
  If xCurFolder.Items.Item(I).Class = olMail Then
    Set xMail = xCurFolder.Items.Item(I)
    xYear = Year(xMail.ReceivedTime)
    xMonth = Month(xMail.ReceivedTime)
    Set xMoveFolder = Nothing
    Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
    If xMoveFolder Is Nothing Then
      Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
    End If
    xMail.Move xMoveFolder
  End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub

classify-emails-by-month/doc-classify-by-month-2

4. Em seguida, pressione a tecla F5 para executar este código, e todos os emails na pasta Caixa de Entrada selecionada serão classificados pelo mês específico da hora de recebimento dos emails, veja a captura de tela:

classify-emails-by-month/doc-classify-by-month-1

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.

Este recurso suporta:

Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta: