Como classificar os e-mails por mês no Outlook?

Se existirem muitos e-mails na sua Caixa de Entrada, para tornar a caixa de correio organizada e com um aspeto limpo, pode armazená-los ou arquivá-los em pastas diferentes com base no mês específico dos e-mails’ Hora de Recebimento, conforme ilustrado na imagem seguinte. Normalmente, pode criar as pastas manualmente e depois mover os e-mails um a um. Obviamente, esta abordagem será demorada e incómoda. Neste artigo, irei explicar um código VBA que resolve esta tarefa de forma rápida e fácil.

---

Classificar os e-mails com base no mês com código VBA

Para mover os e-mails para pastas diferentes com base no mês, aplique o código VBA abaixo:

1. Clique para selecionar a pasta Caixa de Entrada cujos e-mails pretende classificar.

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

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

Código VBA: Classificar os e-mails 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

4. Em seguida, prima a tecla F5 para executar este código e todos os e-mails na pasta da Caixa de Entrada selecionada serão classificados pelo mês específico da Hora de Recebimento dos e-mails. Veja a imagem: