Finde de(t) markerede item(s) i indbakken i Outlook

Hvordan kan man se hvilke items i indbakken der er selekteret? Jeg skal lave en makro der skal gøre noget med dem.

sub x
    inbox = ThisOutlookSession.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   
    'find the marked item
    'For Each m In inbox.Items
    'how to get m??
    For Each m In inbox.Items
        If m.? then
        End If
    Next

end sub