Propriété Application.Explorers (Outlook)
Renvoie un objet de collection Explorers qui contient les objets Explorer représentant tous les explorateurs ouverts. En lecture seule.
Syntaxe
expression. Explorers
expressionUne variable qui représente un objetApplication.
Exemple
Cet exemple Microsoft Visual Basic pour Applications (VBA) montre comment afficher le nombre de fenêtres d’explorateur ouvertes.
Private Sub CountExplorers()
MsgBox "There are " & _
Application.Explorers.Count & " Explorers."
End Sub
L’exemple VBA suivant utilise la propriété Count et la méthode Item de la collection Selection retournée par la propriété Selection pour afficher les expéditeurs de tous les éléments de courrier sélectionnés dans l’explorateur qui affiche la boîte de réception. Pour exécuter cet exemple, vous devez avoir au moins un élément de courrier sélectionné dans l’explorateur qui affiche la Boîte de réception. Vous risquez de voir apparaître une erreur si vous sélectionnez des éléments qui ne sont pas des éléments de courrier, par exemple une demande de tâche, car la propriété SenderName n’existe pas pour un objet TaskRequestItem.
Sub GetSelectedItems()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim MsgTxt As String
Dim x As Integer
MsgTxt = "You have selected items from: "
Set myOlExp = Application.Explorers.Item(1)
If myOlExp = "Inbox" Then
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";"
Next x
MsgBox MsgTxt
End If
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.