Option Explicit

Public Sub GetSelectedMailItems()
  Dim objFolder     As MAPIFolder
  Dim objMailSel    As MailItem
  Dim objSelection  As Selection

  Select Case Application.ActiveWindow.Class
    Case olExplorer
        Set objFolder = Application.ActiveExplorer.CurrentFolder
        If objFolder.DefaultMessageClass = "IPM.Note" Then
          Set objSelection = Application.ActiveExplorer.Selection
          Select Case objSelection.Count
            Case 0
              MsgBox "Es sind keine Mails ausgewählt !"

            Case Else
              For Each objMailSel In objSelection
                DoSomething objMailSel
              Next
          End Select
          Set objSelection = Nothing

        Else
          MsgBox "Im Ordner '" & objFolder.Name & _
                "' sind keine Mails enthalten!"
        End If
        Set objFolder = Nothing

    Case olInspector
        With Application.ActiveInspector
          If .CurrentItem.Class = olMail Then
            Set objMailSel = .CurrentItem
            DoSomething objMailSel
            Set objMailSel = Nothing

          Else
            MsgBox "Es ist keine Mail aktiv !"
          End If
        End With

    Case Else
  End Select
End Sub

Private Sub DoSomething(ByVal objMailItem As MailItem)
  Debug.Print
  Debug.Print "Absender:       " & objMailItem.SenderName
  Debug.Print "Betreff:        " & objMailItem.Subject
  Debug.Print "Anzahl Anhänge: " & objMailItem.Attachments.Count
End Sub