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