récupérer l'objet d'un mail selectionné dans outlook(alors que d'autres sont ouverts)

Bonjour à tous,
j'ai 2 mails qui ont été ouverts dans outlook/boite de réception.
Je souhaiterai récupérer l'objet (qui peut être variable) du mail qui est sélectionne dans la boite de réception
J'ai testé en vain le code ci dessousen fait, il sélectionne le premier qu'il trouve d'ouvert)
Avez vous une idée de l'instruction pour récupérer l'info du mail ''sélectionné"?
Merci d'avance de vos réponses.
Frédéric

Dim MonMail As Outlook.MailItem

Set MonOutlook = Outlook.Application 'Application Outlook
Set MonNSpace = MonOutlook.GetNamespace("MAPI") 'Banque MAPI
Set FldDossier = MonNSpace.GetDefaultFolder(olFolderInbox) 'Dossier boîte de réception
Set MonMail = ActiveInspector.CurrentItem

MsgBox MonMail.Subject

Set MonOutlook = Nothing
Set MonNSpace = Nothing
Set MonMail = Nothing