VBOffice

Ausgewählte Elemente öffnen

Ein Makro, um alle ausgewählten Elemente zu öffnen.

Zuletzt geändert: 31.01.2017 | Aufrufe: 21.135  | #164
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

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.


tip  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
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht