Vba 在Outlook对象模型中，是否有方法查看；“视图”；outlook正在运行吗？_Vba_Outlook_Office Interop

Vba 在Outlook对象模型中，是否有方法查看；“视图”；outlook正在运行吗？

vba outlook

Vba 在Outlook对象模型中，是否有方法查看；“视图”；outlook正在运行吗？,vba,outlook,office-interop,Vba,Outlook,Office Interop,如果Outlook下面的图像是电子邮件，则如何根据窗口左下角突出显示的图标显示Outlook显示的项目类别。我想要一个无论选择哪个文件夹或日历都能工作的方法，因为用户可能有多个文件夹或日历。到目前为止，我得到的最接近的结果是检查 Application.ActiveExplorer.CurrentFolder并检查DefaultMessageClass属性有没有更直接的方法来确定用户在下面显示的图标菜单中选择了什么 Sub NavigationPaneModuleName() Di

如果Outlook下面的图像是电子邮件，则如何根据窗口左下角突出显示的图标显示Outlook显示的项目类别。我想要一个无论选择哪个文件夹或日历都能工作的方法，因为用户可能有多个文件夹或日历。到目前为止，我得到的最接近的结果是检查

Application.ActiveExplorer.CurrentFolder

并检查

DefaultMessageClass

属性

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

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