Pour visualiser un message dans outlook on va faire quelque chose du style :
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
nb_messages = myFolder.Items.Count
For i_mess = 1 To nb_messages
estLu = myFolder.Items(i_mess).UnRead
If estLu = True Then
Set myItem = myFolder.Items(i_mess)
myItem.Display
TRAITEMENT DU CONTENU......
Et ensuite comment ferme t-on le message ouvert par l'instruction : myItem.DisplayMerci