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

Author: Xiaoyang Last Modified: 2025-08-06

Si hay muchos correos electrónicos en tu Bandeja de entrada, para que el buzón se vea ordenado y bien organizado, puedes almacenarlos o archivarlos en diferentes carpetas según el mes específico de la hora de recepción de los correos, como se muestra en la siguiente captura de pantalla. Normalmente, puedes crear las carpetas manualmente y luego moverlas una por una. Obviamente, este enfoque será muy laborioso y complicado. En este artículo, hablaré sobre un código VBA para resolver esta tarea de manera rápida y sencilla.

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

Clasificar los correos electrónicos basados en el mes con código VBA

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

1. Haz clic para seleccionar la carpeta de la Bandeja de entrada donde deseas clasificar los correos electrónicos.

2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Clasificar los correos electrónicos basados en el 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

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

4. Luego, presiona la tecla F5 para ejecutar este código, y todos los correos electrónicos en la carpeta de la Bandeja de entrada seleccionada se clasifican por el mes específico de la hora de recepción de los correos, ver la siguiente captura de pantalla:

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

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

Respuestas inteligentes de correo electrónico
Contenido optimizado
Borradores basados en palabras clave
Extensión inteligente de contenido
Resumen de correos electrónicos
Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!