Me gustaría obtener el MailItem abierto activo (ya sea un correo nuevo o un correo recibido). Necesito agregar algo de contenido a ese correo cuando el usuario ejecuta mi macro. Estoy usando Outlook 2003 y VBA.

Encontré esto:¿Cómo se obtiene una referencia al elemento de correo en la ventana abierta actual en Outlook usando VBA? Sin embargo no funciona porqueTypeName(Application.ActiveWindow) se establece en nada. Yo tambien lo intentéSet Mail = Application.ActiveInspector.currentItem pero tampoco funciona.

Debe haber algo que no entiendo sobre elActiveInspector cosa.

Según lo solicitado, este es el procedimiento / macro ubicado en un módulo dedicado, que se llama cuando el usuario hace clic en un botón de menú agregado enApplication_Startup() método:

Sub myMacro()
    Dim NewMail As Outlook.MailItem
    Set NewMail = Application.ActiveInspector.currentItem
End Sub