| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1393008 | | Aufrufe | 5105187 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 15.12.2009 | Zugriffe: 8551 | | | | Beschreibung
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 warnt Sie, bevor Sie unbeabsichtigt allen Empfängern
einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter] |
| | |  | Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter] |
| | |  | SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter] |
| | |  | OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter] |
| | |
|
