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
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Índice | Obrigatório | Variant | O número do índice do objeto ou um valor usado para corresponder à propriedade padrão de um objeto do conjunto. |
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
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.