Método Selection.Item (Outlook)

Retorna um cabeçalho de conversa ou item de Microsoft Outlook da seleção.

Sintaxe

expressão. Item (Índice)

Expressão Uma variável que representa um objeto 'Selection'.

Parâmetros

Valor de retorno

Um Object que representa o cabeçalho de conversa ou o item especificado.

Comentários

Não faça suposições sobre o método Item retornar tipo; seu código deve ser capaz de lidar com vários tipos de item ou de um objeto ConversationHeader. Por exemplo, o método Item pode retornar um AppointmentItem, MailItem, MeetingItem ou TaskItem na pasta caixa de entrada, dependendo do valor da propriedade Selection. Location.

A coleção Selection contém objetos ConversationHeader somente se você especificar olConversationHeaders no método GetSelection do objeto Selection.

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, 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 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

Objeto Selection

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.