OLKeeper | |
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schlieÃen und so etwa wichtige Emails verpassen würden. |
Bis Outlook 2003 konnte jedem Element eine Kategorie (ein Stichwort) direkt hinzugefügt werden, ohne dass dieses zuvor in der Hauptkategorienliste angelegt werden muÃte. Seit Outlook 2007 geht das nicht mehr.
Mit der folgenden Funktion können Sie über einen Eingabedialog wieder direkt Stichworte vergeben. Mehrere Begriffe können mit einem Komma oder Semikolon getrennt eingegeben werden.
Kopieren Sie die Funktion in das Modul "DieseOutlookSitzung" und speichern Sie das Projekt. Danach können Sie in Outlook eine Schaltfläche zum Aufruf der Funktion erstellen, indem Sie mit rechts auf eine Symbolleiste klicken, dann auf Anpassen, Befehle, Makros und den Funktionsnamen auf die Symbolleiste ziehen. Mit einem weiteren Rechtsklick auf den neu erstellten Button können Sie dessen Aussehen verändern. (Führen Sie diese Schritte einmal für einen beliebigen Ordner aus und bei Bedarf einmal für jedes Formular, in dem die Funktion auch zur Verfügung stehlen soll.)
Sie können die Funktion auch einfach über alt+f8 aufrufen.
Public Sub EnterKeyword() Dim Coll As VBA.Collection Dim obj As Object Dim s$ Set Coll = GetCurrentItems If Coll.Count = 0 Then Exit Sub s = InputBox("Keyword:") s = Trim$(s) If Len(s) = 0 Then Exit Sub For Each obj In Coll obj.Categories = obj.Categories & "," & s obj.save Next End Sub Private Function GetCurrentItems() As VBA.Collection Dim Coll As VBA.Collection Dim Win As Object Dim Sel As Outlook.Selection Dim obj As Object Dim i& Set Coll = New VBA.Collection Set Win = Application.ActiveWindow If TypeOf Win Is Outlook.Inspector Then Coll.Add Win.CurrentItem Else Set Sel = Win.Selection If Not Sel Is Nothing Then For i = 1 To Sel.Count Coll.Add Sel(i) Next End If End If Set GetCurrentItems = Coll End Function
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. |