通过

Application.ActiveExplorer 方法 (Outlook)

  • 项目

在桌面上返回最顶层的 资源管理器 对象。

语法

expression。 ActiveExplorer

expression：表示 Application 对象的变量。

返回值

表示在桌面上最顶层的资源管理器 资源管理器 。 如果没有资源管理器处于活动状态，则返回 Nothing 。

备注

使用此方法以返回用户很可能正在查看的 资源管理器 对象。 此方法还可用于确定没有活动的浏览器，以便打开一个新。

示例

以下 Microsoft Visual Basic for Applications (VBA) 示例使用 Selection 属性返回的 Selection集合的Count 属性和 Item 方法显示活动资源管理器窗口中选择的所有邮件项目的发件人。 若要运行此示例，需要在活动浏览器窗口中选定至少一个邮件项目。

注意

[!注释] 您选择之外例如任务要求的邮件项目的项目，如 SenderName 属性对于 TaskRequestItem 对象不存在，则可能会收到错误。

Sub GetSelectedItems() 
 
 Dim myOlExp As Outlook.Explorer 
 
 Dim myOlSel As Outlook.Selection 
 
 Dim MsgTxt As String 
 
 Dim x As Integer 
 
 
 
 MsgTxt = "You have selected items from: " 
 
 Set myOlExp = Application.ActiveExplorer 
 
 Set myOlSel = myOlExp.Selection 
 
 For x = 1 To myOlSel.Count 
 
 MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";" 
 
 Next x 
 
 MsgBox MsgTxt 
 
End Sub

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。