¿Cómo leer correos de cuentas compartidas desde Excel?

Leer correos de cuentas compartidas directamente desde Excel requiere utilizar automatización, generalmente con VBA (Visual Basic for Applications) y puede involucrar el uso de bibliotecas como Outlook para acceder a los correos electrónicos. Aquí tienes una guía básica para empezar:

Habilitar VBA en Excel:

Abre Excel y ve a «Desarrollador» en la barra de menú. Si no ves la pestaña, habilítala desde las opciones de Excel.
Haz clic en «Visual Basic» para abrir el editor de VBA.

Configurar referencia a la biblioteca de Outlook:

En el editor de VBA, ve a «Herramientas» > «Referencias».
Busca y selecciona «Microsoft Outlook xx.x Object Library» (la versión dependerá de tu instalación).

Escribir un macro para acceder a Outlook:

Aquí te dejo un ejemplo de cómo podrías usar VBA para conectarte a Outlook y leer correos de una cuenta compartida:

   Sub LeerCorreosCuentaCompartida()
       Dim OutlookApp As Object
       Dim OutlookNamespace As Object
       Dim CarpetaCompartida As Object
       Dim Email As Object
       Dim i As Integer
       
       ' Asegúrate de que Outlook esté abierto
       Set OutlookApp = CreateObject("Outlook.Application")
       Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

       ' Aquí, reemplaza "nombre@dominio.com" con el correo de la cuenta compartida
       Set CarpetaCompartida = OutlookNamespace.Folders("nombre@dominio.com").Folders("Bandeja de entrada")

       ' Iterar sobre correos en la carpeta compartida
       i = 1
       For Each Email In CarpetaCompartida.Items
           ' Aquí puedes personalizar lo que deseas hacer con cada correo
           Debug.Print Email.Subject  ' Imprime el asunto del correo en la ventana de inmediato
           ActiveSheet.Cells(i, 1).Value = Email.Subject  ' Escribiendo el asunto en Excel
           ActiveSheet.Cells(i, 2).Value = Email.SenderName  ' Escribiendo el remitente
           ActiveSheet.Cells(i, 3).Value = Email.ReceivedTime  ' Escribiendo la fecha de recepción
           i = i + 1
       Next Email
       
       ' Limpiar objetos
       Set CarpetaCompartida = Nothing
       Set OutlookNamespace = Nothing
       Set OutlookApp = Nothing
   End Sub

Ejecutar el macro:

cierra y guarda el módulo de VBA.
Regresa a Excel, ve a «Desarrollador» > «Macros», selecciona `LeerCorreosCuentaCompartida` y ejecútalo.

Este script es un punto de partida y necesitarás adaptarlo según tus necesidades específicas y configuraciones de seguridad de Outlook. Además, algunas empresas tienen políticas de restricción en el uso de macro, asegúrate de cumplir con las políticas de TI de tu organización.