Ausgewählte Elemente öffnen

Im Kontextmenü für Emails etc. fehlt der Befehl, das Element zu öffnen. Sie können jedes Element durch Drücken von Enter öffnen oder durch einen Doppelklick auf das Element in der Ordneransicht. Manche bevorzugen es aber, auf eine Schaltfläche zu klicken. Sie können sich das Menüband anpassen und eine Schaltfläche hinzufügen, um dieses Makro aufzurufen.

  So fügen Sie Makros in Outlook ein

'Wenn mehr Elemente ausgewählt sind, als hier angegeben,
'dann wird eine Meldung vorm Öffnen angezeigt.
Private Const MaxItems As Long = 20

Public Sub OpenSelectedItems()
  Dim Sel As Outlook.Selection
  Dim obj As Object
  Dim i As Long
  
  Set Sel = Application.ActiveExplorer.Selection
  If Sel.Count > MaxItems Then
    If MsgBox("Sie haben " & Sel.Count & _
      " Elemente ausgewählt. Sollen wirklich alle geöffnet werden?", vbYesNoCancel) <> vbYes Then
      Exit Sub
    End If
  End If
  For i = 1 To Sel.Count
    Set obj = Sel(i)
    obj.Display
  Next
End Sub