[VBA-Outlook]Accéder à l'e-mail sélectionné [Résolu]

[ben53]

Bonjour à tous,
J'ai trouvé pas mal de codes sources pour parcourir les e-mails d'un dossier outlook, mais pas un pour accéder à l'émail sélectionné (celui qui est surligné dans la fenêtre qui affiche la liste des messages). Je ne trouve pas comment m'y prendre, quelqu'un saurait m'aider?

[bbil]

un exemple copier/coller depuis l'aide en ligne VBA outlook :

Code :

1
2
3
4
5
6
7
8
9
10
 
 
Sub MonTest()
MsgTxt = "You have selected items from" & Chr(13) & Chr(13)
Set myOlSel = Application.ActiveExplorer.Selection
For x = 1 To myOlSel.Count
    MsgTxt = MsgTxt & myOlSel.Item(x).Subject & Chr(13)
Next
MsgBox MsgTxt
End Sub

[ben53]

Oups pardon je n'ai pas cherché dans le plus évident!
Merci!