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

Objet Application

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.