Option Explicit
 
Dim ol As Outlook.Application
Dim ns As NameSpace
Dim myExplorer As Explorer
Dim mf As MAPIFolder
Dim mo As Outlook.Selection
 
 
Public Sub Makro1()
    Set ol = New Outlook.Application
    Set ns = ol.GetNamespace("MAPI")
    Set mf = ns.GetDefaultFolder(olFolderInbox)
 
    Set myExplorer = ol.ActiveExplorer
 
    Set mo = myExplorer.Selection
 
    mo.Item(1).Display
 
 
End Sub