¿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

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz 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 emails.

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

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos 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 correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

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

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

Lista de funciones de Kutools para Outlook Descargar versión gratuita Actualizar a Profesional