Explorer. Selection-Eigenschaft (Outlook)
Gibt ein Selection -Objekt, das das Element oder im Explorer-Fenster ausgewählten Elemente enthält. Schreibgeschützt.
Syntax
Ausdruck. Auswahl
Ausdruck Eine Variable, die ein "Explorer"-Objekt darstellt.
Hinweise
Der Speicherort einer Auswahl im Explorer kann sich in der Ansichtsliste, der Terminliste oder einer Aufgabenliste in der Aufgabenleiste oder aber in der täglichen Aufgabenliste in einer Kalenderansicht befinden. Weitere Informationen finden Sie unter der Eigenschaft Location.
Die Selection -Eigenschaft umfasst keine Unterhaltung Header-Objekte. Rufen Sie die Selection.GetSelection -Methode bereitstellen OlConversationHeaders als Argument, um Unterhaltung Header-Objekte abzurufen, die im Explorer ausgewählt sind.
Wenn der aktuelle Ordner eine Ordner-Homepage angezeigt wird, gibt diese Eigenschaft eine leere Auflistung zurück. Wenn einen Gruppenkopf wie heute oder einen Gruppenkopf Unterhaltung ausgewählt ist, wird die Count -Eigenschaft für das zurückgegebene Objekt Auswahl auch, 0 (null).
Beispiel
Der folgende Microsoft Visual Basic für Applikationen (VBA) zeigt die Absender aller ausgewählten Elemente im aktiven Explorer an. Anschließend wird die Count -Eigenschaft und die Item -Methode des Selection -Objekts, das zurückgegeben wird, von der Explorer.Selection -Eigenschaft, 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 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
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.