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

Mover un mensaje de correo electrónico a una carpeta específica después de leerlo es la mejor manera de mantener limpia la carpeta Bandeja de entrada en Outlook. Para muchos usuarios de Outlook, tienden a crear una regla para mover estos correos electrónicos leídos. En realidad, Outlook no soporta este proceso del asistente de reglas. En este artículo, te mostraremos cómo mover mensajes de correo electrónico a una carpeta específica después de leerlos con código VBA en Outlook.

Mover un mensaje de correo electrónico a una carpeta específica después de leerlo en Outlook

Mover un mensaje de correo electrónico a una carpeta específica después de leerlo en Outlook

Puedes mover mensajes de correo electrónico a una carpeta específica después de leerlos ejecutando código VBA en Outlook.

1. Primero, necesitas crear una nueva carpeta llamada “Reviewed” bajo la carpeta Bandeja de entrada.

2. Abre la carpeta Bandeja de entrada, luego presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic for Applications.

3. Luego haz doble clic para expandir Proyecto1 > Objetos de Microsoft Outlook > EstaSesiónOutlook para abrir el editor VbaProject.OTM .

4. Luego copia y pega el siguiente código VBA al editor VbaProject.OTM como se muestra en la captura de pantalla anterior.

Código VBA: mover mensajes después de leer

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. Luego haz clic en el botón Guardar para guardar el código VBA y luego cierra la ventana Microsoft Visual Basic for Applications.

6. Haz clic derecho en la Barra de herramientas de acceso rápido, y selecciona Personalizar barra de herramientas de acceso rápido desde el menú contextual. Ver captura de pantalla:

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

1). Seleccionar Macros en la lista desplegable Elegir comandos de;

2). Seleccionar Proyecto1.EstaSesiónOutlook en el cuadro bajo la lista desplegable Elegir comandos de;

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

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

8. Luego puedes ver el botón Macro mostrándose en la Barra de herramientas de acceso rápido. Asegúrate de que estás ubicado en la carpeta Bandeja de entrada de la cual deseas mover todos los mensajes leídos, luego haz clic en el botón Macro para ejecutar el código VBA dentro de la Bandeja de entrada.

Notas:

1. Este código VBA puede aplicarse en Outlook 2007, 2010 y 2013; Pero, en Outlook 2007, puedes hacer clic directamente en el botón Ejecutar para ejecutar el código.

2. Si hay varias cuentas de correo electrónico existentes en tu Outlook, el código VBA solo puede aplicarse en la cuenta cuyo archivo de datos está configurado como predeterminado. Puedes verificar el archivo de datos predeterminado haciendo clic en Archivo > Información > Configuración de la cuenta > Configuración de la cuenta para abrir el Configuración de la cuenta cuadro de diálogo. Luego ve a la pestaña Archivo de datos verás que el archivo de datos predeterminado está marcado por antes.

3. Si deseas cambiar el archivo de datos predeterminado a otra cuenta de correo electrónico, selecciona y resalta la cuenta que deseas establecer como predeterminada, luego haz clic en Establecer como predeterminado en el cuadro de diálogo Configuración de la cuenta.

4. Al ejecutar el código VBA por primera vez y notar que los mensajes leídos no se mueven todos a la vez, sigue haciendo clic en el botón Macro hasta que todos los mensajes leídos en la Bandeja de entrada se hayan movido.

---

Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

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

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

• ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
• 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
• 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete