Propriedade Explorer.Selection (Outlook)
Retorna um objeto Selection que contém o item ou itens que estão selecionados na janela do explorer. Somente leitura.
Sintaxe
expressão. Seleção
Expressão Uma variável que representa um objeto 'Explorer'.
Comentários
O local de uma seleção no Explorer pode estar na lista de modos de exibição, na lista de compromissos, na lista de tarefas da Barra de Tarefas Pendentes ou na lista de tarefas diárias em um modo de exibição calendário. Para obter mais informações, consulte a propriedade Location.
A propriedade Selection não inclui quaisquer objetos de cabeçalho de conversa. Chame o método Selection.GetSelection, fornecendo olConversationHeaders como argumento, para obter os objetos de cabeçalho que estão selecionados no explorer de conversa.
Se a pasta atual exibe uma home page de pasta, essa propriedade retornará uma coleção vazia. Além disso, se um cabeçalho de grupo, como hoje ou um cabeçalho de grupo de conversa for selecionado, a propriedade Count no objeto Selection retornado é zero.
Exemplo
Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) exibe o remetente de cada item selecionado no explorer ativo. Ele usa a propriedade Count e o método Item do objeto Selection que é retornado pela propriedade Explorer Selection para exibir os remetentes de todas as mensagens que estão selecionados no explorer ativo.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.