Méthode Application.ActiveExplorer (Outlook)
Renvoie l’objet Explorer le plus haut sur le bureau.
Syntaxe
expression. ActiveExplorer
expressionUne variable qui représente un objetApplication.
Valeur renvoyée
Objet Explorer qui représente le tout premier explorateur du Bureau. Renvoie Nothing si aucun explorateur n’est actif.
Remarques
Utilisez cette méthode pour renvoyer l'objet Explorer que l'utilisateur est très probablement en train d'utiliser. Cette méthode est également utile pour déterminer qu’aucun explorateur n’est actif, ce qui permet d’en ouvrir un.
Exemple
L’exemple Microsoft Visual Basic pour Applications (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 la fenêtre d’explorateur active. Pour exécuter cet exemple, au minimum un message doit être sélectionné dans la fenêtre d'exploration active.
Remarque
Une erreur peut s’afficher si vous sélectionnez d’autres éléments qu’un message comme une demande de tâche étant donné que 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.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";"
Next x
MsgBox 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.