¿Cómo marcar automáticamente como leídos los mensajes eliminados en Outlook?

Si elimina un mensaje de correo electrónico no leído en Microsoft Outlook, este se trasladará a la carpeta Elementos eliminados y seguirá marcado como no leído. En algunos casos, los usuarios de Outlook pueden desear que los mensajes eliminados se marquen automáticamente como leídos, ya sea para aplicar reglas u otros fines. A continuación, se presentan métodos para lograr que los mensajes eliminados se marquen como leídos en Microsoft Outlook.

Marcar todos los Elementos eliminados como leídos manualmente

Marcar automáticamente Marcar elementos eliminados como leídos ahora con un solo clic

Marcar automáticamente los mensajes eliminados como leídos con VBA

---

Marcar todos los Elementos eliminados como leídos manualmente

En Microsoft Outlook, los usuarios pueden marcar fácilmente como leídos todos los mensajes de una carpeta de correo completa, incluida la carpeta Elementos eliminados.

Después de eliminar sus mensajes de correo electrónico, seleccione la carpeta «Elementos eliminados» en la navegación, haga clic con el botón derecho sobre ella y elija «Marcar todo como leído» en el menú contextual. Consulte la siguiente captura de pantalla:

---

Marcar automáticamente Marcar elementos eliminados como leídos ahora con un solo clic

Si desea marcar como leídos los elementos eliminados en subcarpetas o que los elementos se marquen automáticamente como leídos al eliminarlos, ¿cómo puede lograrlo? La utilidad «Marcar eliminados como leídos» de «Kutools para Outlook» le ofrece la solución.

1. Haga clic en «KUTOOLS PLUS» > «Utilidades» > «Marcar como leído» > «Habilitar Marcar como leído».

Aparecerá un cuadro de diálogo preguntando si desea incluir subcarpetas. Haga clic en «Sí» para marcar los elementos eliminados tanto en la carpeta principal como en sus subcarpetas, o en «No» para excluir estas últimas.

A continuación, aparecerá un cuadro de diálogo de confirmación informándole de que todos los elementos eliminados han sido marcados como leídos.

Además, cualquier correo electrónico no leído que se elimine y se mueva a la carpeta Elementos eliminados se marcará automáticamente como leído.

---

Marcar automáticamente los mensajes eliminados como leídos con VBA

Esta sección presenta una macro de VBA que marca automáticamente como leídos todos los mensajes eliminados en el momento de su eliminación.

Paso 1: Pulse simultáneamente «Alt» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 2: Expanda «Proyecto1» en el panel izquierdo y haga doble clic en «ThisOutlookSession» para abrir una ventana en blanco.

Paso 3: Pegue el siguiente código VBA en la ventana en blanco.

VBA: Marcar automáticamente los mensajes eliminados como leídos

Dim WithEvents g_OlkFolder As Outlook.Items
Private Sub Application_Quit()
Set g_OlkFolder = Nothing
End Sub
Private Sub Application_Startup()
Set g_OlkFolder = Session.GetDefaultFolder(olFolderDeletedItems).Items
End Sub
Private Sub g_OlkFolder_ItemAdd(ByVal Item As Object)
Item.UnRead = False
Item.Save
End Sub

Paso 4: Guarde la macro de VBA y reinicie Microsoft Outlook.

Nota: Esta macro de VBA solo funciona con Microsoft Outlook 2013 y únicamente marca los elementos eliminados como leídos en el archivo de datos predeterminado.

A partir de ahora, cuando elimine correos electrónicos manual o automáticamente mediante reglas, los mensajes no leídos se marcarán inmediatamente como leídos en la carpeta Elementos eliminados.