¿Cómo clasificar los correos electrónicos por mes en Outlook?

Si tiene muchos correos electrónicos en su bandeja de entrada y desea mantenerla ordenada y bien organizada, puede archivarlos en carpetas distintas según el mes de recepción, tal como se muestra en la siguiente captura de pantalla. Normalmente, esto se hace creando manualmente las carpetas y moviendo los mensajes uno por uno, un proceso lento y tedioso. En este artículo, le mostraré un código VBA para realizar esta tarea de forma rápida y sencilla.

---

Clasificar los correos electrónicos por mes con código VBA

Para mover los correos electrónicos a distintas carpetas según el mes, aplique el siguiente código VBA:

1. Haga clic para seleccionar la carpeta Bandeja de entrada cuyos correos desee clasificar.

2. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.

Código VBA: Clasificar los correos electrónicos por mes

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. A continuación, pulse la tecla F5 para ejecutar este código y todos los correos de la carpeta de la Bandeja de entrada seleccionada se clasificarán según el mes específico de la hora de recepción. Consulte la siguiente captura de pantalla: