Outlook VBA - Obtenga los detalles del correo electrónico actual activo (o abierto)

Question

Estoy completamente atascado en cuanto a cómo recuperar los detalles de un correo electrónico que está actualmente seleccionado o abierto. De hecho, no puedo encontrar ningún detalle sobre cómo acceder a un correo electrónico. Parece que puedes recorrer toda la estructura de carpetas y obtener todos los correos electrónicos, pero eso realmente no me ayuda.

Supongo que no puedo obtener algunas indicaciones.

Y sí, odio VBA tanto como el próximo desarrollador, pero lamentablemente alrededor del 0,1% de mi trabajo implica integración con Outlook.

Saludos.

Answer 1

Para obtener los correos electrónicos actualmente seleccionados, mira el objeto Selection del Explorador.

Dim myOlExp As Outlook.Explorer 
Dim myOlSel As Outlook.Selection 

Set myOlExp = Application.ActiveExplorer 
Set myOlSel = myOlExp.Selection 

El objeto de selección puede contener muchos artículos y también contienen artículos que son de otros tipos de correo (IPM.Note) es decir, aplicaciones de calendario, etc Así que si solo deseas elementos de correo se puede echar un vistazo a este artículo MessageClass

En cuanto al correo electrónico actual que es más complicado ya que puede abrir varios de estos si solo desea el máximo, puede usar el Application.ActiveInspector; de lo contrario, debe mirar el Inspectors Collection del objeto Aplicación. A continuación, puede obtener el "elemento" de la propiedad CurrentItem fuera del Inspector (recuerde que estos no pueden ser electrónicos también)

esperanza plena de que se conseguirá que va