Selection.Item-Methode (Outlook)

Gibt ein Microsoft Outlook-Element oder eine Unterhaltungskopfzeile aus der Auswahl zurück.

Syntax

Ausdruck. Element (Index)

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Variant	Entweder der Indexwert des Objekts oder ein Wert, der mit der Standardeigenschaft eines Objekts in der Auflistung übereinstimmt.

Rückgabewert

Ein Object, das das angegebene Element oder die angegebene Unterhaltungskopfzeile darstellt.

HinwBemerkungeneise

Machen Sie keine Annahmen über den Rückgabetyp der Item-Methode . Ihr Code sollte in der Lage sein, mehrere Elementtypen oder ein ConversationHeader-Objekt zu verarbeiten. For example, the Item method can return an AppointmentItem, MailItem, MeetingItem, or TaskItem in the Inbox folder, depending on the value of the Selection.Location property.

Die Selection-Auflistung enthält ConversationHeader-Objekte nur, wenn Sie olConversationHeaders in der GetSelection-Methode des Selection-Objekts angeben.

Beispiel

Der folgende Microsoft Visual Basic für Applikationen (VBA) zeigt die Absender aller ausgewählten Elemente im aktiven Explorer an. Sie verwendet die Count-Eigenschaft und die Item-Methode des Selection-Objekts , die von der Explorer.Selection-Eigenschaft zurückgegeben werden, um die Absender aller Nachrichten anzuzeigen, die im aktiven Explorer ausgewählt sind.

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

Siehe auch

Selection-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.