¿Cómo mover un mensaje de correo electrónico a una carpeta específica después de leerlo en Outlook?

Mover los mensajes de correo electrónico a una carpeta especificada después de leerlos es la mejor manera de mantener su bandeja de entrada limpia en Outlook. Muchos usuarios suelen crear una regla para trasladar automáticamente estos correos ya leídos; sin embargo, Outlook no incluye un asistente de reglas que permita hacerlo directamente. En este artículo, le mostraremos cómo mover mensajes de correo electrónico a una carpeta determinada tras leerlos mediante código VBA en Outlook.

Mover mensaje de correo electrónico a una carpeta especificada tras leerlo en Outlook

Mover mensaje de correo electrónico a una carpeta especificada tras leerlo en Outlook

Puede mover mensajes de correo electrónico a una carpeta especificada tras leerlos mediante la ejecución de código VBA en Outlook.

1. En primer lugar, debe crear una nueva carpeta llamada “Revisados” dentro de la carpeta Bandeja de entrada.

2. Abra la carpeta Bandeja de entrada y, a continuación, pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. A continuación, haga doble clic para expandir Proyecto1 > Objetos de Microsoft Outlook > ThisOutlookSession y abrir el editor de VbaProject.OTM.

4. A continuación, copie y pegue el siguiente código VBA en el editor VbaProject.OTM, tal como se muestra en la captura anterior.

Código VBA: mover mensajes tras leerlos

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. A continuación, haga clic en el botón Guardar para guardar el código VBA y, después, cierre la ventana de Microsoft Visual Basic para Aplicaciones.

6. Haga clic con el botón derecho en la Barra de herramientas de acceso rápido y seleccione Personalizar barra de herramientas de acceso rápido en el menú contextual. Vea la captura:

7. En el cuadro de diálogo Opciones de Outlook, debe:

1). Seleccione Macros en el campo Elegir comandos de de la lista desplegable;

2). Seleccione Proyecto1. ThisOutlookSession en el cuadro situado bajo la lista desplegable Elegir comandos de;

3). Haga clic en el botón Agregar;

4). Haga clic en el botón Aceptar.

8. A continuación, verá el botón Macro visible en la Barra de herramientas de acceso rápido. Asegúrese de estar en la bandeja de entrada desde la que desea mover todos los mensajes leídos y, a continuación, haga clic en el botón Macro para ejecutar el código VBA dentro de la Bandeja de entrada.

Notas:

1. Este código VBA es compatible con Outlook 2007, 2010 y 2013; sin embargo, en Outlook 2007, puedes hacer clic directamente en el botón Ejecutar para ejecutar el código.

2. Si tiene varias cuentas de correo en Outlook, el código VBA solo se aplicará a la cuenta cuyo archivo de datos esté establecido como predeterminado. Puede comprobar qué archivo de datos es el predeterminado haciendo clic en Archivo > Información > Configuración de la cuenta > Configuración de la cuenta para abrir el cuadro de diálogo Configuración de la cuenta. A continuación, vaya a la pestaña Archivo de datos y verá que el archivo de datos predeterminado está marcado con delante.

3. Si desea cambiar el archivo de datos predeterminado a otra cuenta de correo, seleccione y resalte la cuenta que quiera establecer como predeterminada y, a continuación, haga clic en Establecer como predeterminado en el cuadro de diálogo Configuración de la cuenta.

4. La primera vez que ejecute el código VBA y observe que los mensajes leídos no se mueven todos de inmediato, siga haciendo clic en el botón Macro hasta que se hayan trasladado todos los mensajes leídos de la Bandeja de entrada.

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

• ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
• 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
• 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto