Explorer.Selection, propriété (Outlook)

Article
04/07/2023

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

Explorer, objet

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.

Partager via