Oulook VBA: Funcion para obtener un mensaje de correo.

Input = Ninguno
Output = Un objeto MailItem (Un mensaje de correo)

El proceso verifica si en la ventana activa se encuentra abierto un mensaje de correo, la funcion devuelve el mensaje para futura manipulación.

Function getMessage()

    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Set getMessage = Application.ActiveWindow.CurrentItem
    Else
        Set getMessage = Nothing
    End If

End Function


Test:


Sub testFunction()

    Set mail = getMessage()
    
    If mail Is Nothing Then
        Debug.Print TypeName(mail)
    Else
        Debug.Print TypeName(mail)
        Debug.Print mail.Subject
        Debug.Print mail.Body
        For Each adjunto In mail.Attachments
            Debug.Print adjunto.fileName
        Next
    End If

End Sub