Outlook) (Explorer.Selection 属性

  • 项目

返回一个或多个资源管理器窗口中选定的项目包含的 选择 对象。 此为只读属性。

语法

表达式。选择

表达 一个代表“Explorer”对象的变量。

备注

浏览器中的选定内容可以位于待办事项栏中的视图列表、约会列表或任务列表中，也可以位于日历视图中的日常任务列表中。 有关详细信息，请参阅 Location 属性。

选择 属性不包括任何对话头对象。 调用 Selection.GetSelection 方法，提供 olConversationHeaders 作为参数，以获取标题对象资源管理器中选定的对话。

如果当前文件夹显示文件夹主页，则此属性将返回空集合。 此外，如果选择了组标头（例如 Today）或对话组标头，则返回的 Selection 对象上的 Count 属性为零。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例显示在活动资源管理器中每个选定项目的发件人。 它使用 Count 属性和要显示在活动资源管理器中选定的所有邮件的发件人的 Explorer.Selection 属性返回 选定内容 对象的 Item 方法。

Sub GetSelectedItems() 
 
 Dim myOlExp As Outlook.Explorer 
 
 Dim myOlSel As Outlook.Selection 
 
 Dim mySender As Outlook.AddressEntry 
 
 Dim oMail As Outlook.MailItem 
 
 Dim oAppt As Outlook.AppointmentItem 
 
 Dim oPA As Outlook.PropertyAccessor 
 
 Dim strSenderID As String 
 
 Const PR_SENT_REPRESENTING_ENTRYID As String = _ 
 
 "http://schemas.microsoft.com/mapi/proptag/0x00410102" 
 
 Dim MsgTxt As String 
 
 Dim x As Long 
 
 
 
 MsgTxt = "Senders of selected items:" 
 
 Set myOlExp = Application.ActiveExplorer 
 
 Set myOlSel = myOlExp.Selection 
 
 For x = 1 To myOlSel.Count 
 
 If myOlSel.Item(x).Class = OlObjectClass.olMail Then 
 
 ' For mail item, use the SenderName property. 
 
 Set oMail = myOlSel.Item(x) 
 
 MsgTxt = MsgTxt & oMail.SenderName & ";" 
 
 ElseIf myOlSel.Item(x).Class = OlObjectClass.olAppointment Then 
 
 ' For appointment item, use the Organizer property. 
 
 Set oAppt = myOlSel.Item(x) 
 
 MsgTxt = MsgTxt & oAppt.Organizer & ";" 
 
 Else 
 
 ' For other items, use the property accessor to get the sender ID, 
 
 ' then get the address entry to display the sender name. 
 
 Set oPA = myOlSel.Item(x).PropertyAccessor 
 
 strSenderID = oPA.GetProperty(PR_SENT_REPRESENTING_ENTRYID) 
 
 Set mySender = Application.Session.GetAddressEntryFromID(strSenderID) 
 
 MsgTxt = MsgTxt & mySender.Name & ";" 
 
 End If 
 
 Next x 
 
 Debug.Print MsgTxt 
 
End Sub

另请参阅

资源管理器对象

支持和反馈

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