在Outlook对象模型中，有没有办法查看其中的“视图”前景？

Question

如果窗口下方的图像是电子邮件，则如何显示Outlook的项目类别（如窗口左下方显示的突出显示的图标所示）。我想要一个无论选择哪个文件夹或日历都可以使用的方法，因为用户可能有多个。我到目前为止最接近的是检查 Application.ActiveExplorer.CurrentFolder并检查DefaultMessageClass属性。

是否有更直接的方法来确定用户在下面的图标菜单中选择了什么？

Answer 1

Sub NavigationPaneModuleName()

    Dim objPane As NavigationPane
    Dim objModule As Object

    ' Get the current NavigationPane object.
    Set objPane = ActiveExplorer.NavigationPane

    Debug.Print objPane.CurrentModule.Name

EndRoutine:
    Set objModule = Nothing
    Set objPane = Nothing

End Sub