¿Cómo leer solo correos no leídos con VBA desde Excel?

Para leer solo los correos no leídos desde Outlook utilizando VBA en Excel, puedes utilizar la biblioteca de Outlook para conectar ambos programas y acceder a los mensajes de correo electrónico. A continuación, te presento un ejemplo de cómo hacerlo:

Activa la referencia a la biblioteca de Outlook:

Abre Excel y presiona `ALT + F11` para abrir el editor de VBA.
Ve a `Herramientas` -> `Referencias`.
Busca y marca `Microsoft Outlook xx.x Object Library`, donde «xx.x» es la versión de Outlook que estás utilizando.

Usa el siguiente código VBA:

Este código se conecta a Outlook, accede a la bandeja de entrada, y procesa solo los correos no leídos.

   Sub LeerCorreosNoLeidos()

       Dim OutlookApp As Outlook.Application
       Dim OutlookNamespace As Outlook.Namespace
       Dim CarpetaBandejaEntrada As Outlook.Folder
       Dim Correo As Outlook.MailItem
       Dim Elemento As Object
       Dim Contador As Integer

       ' Crear una nueva instancia de Outlook
       On Error Resume Next
       Set OutlookApp = GetObject(, "Outlook.Application")
       If OutlookApp Is Nothing Then
           Set OutlookApp = CreateObject("Outlook.Application")
       End If

       ' Obtener el espacio de nombres MAPI y la carpeta de bandeja de entrada
       Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
       Set CarpetaBandejaEntrada = OutlookNamespace.GetDefaultFolder(olFolderInbox)

       ' Recorrer cada elemento en la bandeja de entrada
       Contador = 1
       For Each Elemento In CarpetaBandejaEntrada.Items
           ' Comprobar si el elemento es un correo y si está no leído
           If TypeOf Elemento Is Outlook.MailItem Then
               Set Correo = Elemento
               If Correo.UnRead Then
                   ' Procesar el correo no leído (por ejemplo, imprimir el asunto y el remitente)
                   Debug.Print "Asunto: " & Correo.Subject
                   Debug.Print "Remitente: " & Correo.SenderName
                   
                   ' (Opcional) Escribir los datos en la hoja de Excel
                   With ThisWorkbook.Sheets("Hoja1") ' Cambiar "Hoja1" al nombre de tu hoja
                       .Cells(Contador, 1).Value = Correo.Subject
                       .Cells(Contador, 2).Value = Correo.SenderName
                       .Cells(Contador, 3).Value = Correo.ReceivedTime
                   End With
                   Contador = Contador + 1
               End If
           End If
       Next Elemento

       ' Liberar objetos
       Set CarpetaBandejaEntrada = Nothing
       Set OutlookNamespace = Nothing
       Set OutlookApp = Nothing

       MsgBox "Los correos no leídos han sido procesados.", vbInformation

   End Sub

Ejecuta el macro:

Asegúrate de tener una hoja activa llamada «Hoja1» o cambia el nombre en el código para que coincida con tu hoja de Excel.
Ejecuta el macro desde el editor de VBA para procesar los correos no leídos.

Este ejemplo imprime información en la ventana «Inmediato» del editor VBA y opcionalmente escribe la información de los correos en una hoja de Excel. Puedes ajustarlo según tus necesidades, por ejemplo, almacenando más información o procesando de manera diferente los correos.