Méthode Application.ActiveExplorer (Outlook)

  • Article

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

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.