Explorer.Selection, propriété (Outlook)
Renvoie un objet Selection qui contient le ou les éléments sélectionnés dans la fenêtre d’explorateur. En lecture seule.
Syntaxe
expression. Sélection
Expression Variable qui représente un objet « Explorer ».
Remarques
L’emplacement d’une sélection dans l’explorateur peut être la liste d’affichages, la liste de rendez-vous ou la liste des tâches dans la Barre des tâches, ou la liste des tâches quotidiennes dans un affichage Calendrier. Pour plus d’informations, consultez la propriété Location .
La propriété Selection n’inclut aucun objet d’en-tête de conversation. Appelez la méthode Selection.GetSelection , en fournissant olConversationHeaders comme argument, pour obtenir les objets d’en-tête de conversation sélectionnés dans l’explorateur.
Si le dossier actif affiche une page d’accueil de dossier, cette propriété renvoie une collection vide. En outre, si un en-tête de groupe tel que Today ou un en-tête de groupe de conversations est sélectionné, la propriété Count sur l’objet Selection renvoyé est égale à zéro.
Exemple
L'exemple Microsoft Visual Basic pour Applications (VBA) affiche l'expéditeur de chaque élément sélectionné dans l'explorateur actif. Il utilise la propriété Count et la méthode Item de l’objet Selection renvoyé par la propriété Explorer.Selection pour afficher les expéditeurs de tous les messages sélectionnés dans l’explorateur actif.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.