Nachverfolgung per Mausklick setzen

Wer häufig die Nachverfolgungskennzeichnung benötigt, kann sich mit dem folgenden Code das Leben erleichtern und viele Mausklicks sparen.

Den Code bitte in ein neues Modul kopieren (Einfügen -> Modul im VBA-Editor). Zur Verwendung dieses Beispiels beachten Sie bitte die wichtigen Hinweise, sowie den Workshop VBA in Outlook® verwenden.

Für Outlook® 2000, Outlook® 2002, Outlook® 2003, Outlook® 2007

Option Explicit
 
Public Sub SetFlag()
 
    '=====================================================================
    ' Setzt die Nachverfolgungskennzeichnung markierter E-Mails
    ' (c) Peter Marchert - http://www.outlook-stuff.com
    ' 2008-11-21 Version 1.0.0
    '=====================================================================
 
    Dim objMail As Outlook.MailItem   ' Einzelne E-Mail
    Dim strRequest As String          ' Text für die Kennzeichnung
    Dim lngFlagColor As Long          ' Fähnchenfarbe
    Dim lngItem As Long               ' Schleifenzähler
    Dim lngItems As Long              ' Anzahl markierter E-Mails
 
    On Error Resume Next
 
    '---------------------------------------------------------------------
    ' Kennzeichnungstext festlegen
    '---------------------------------------------------------------------
    strRequest = "Wiedervorlage"
 
    '---------------------------------------------------------------------
    ' Fähnchenfarbe festlegen (ab Outlook® 2003)
    ' 1 = Violett; 2 = Orange; 3 = Grün; 4 = Gelb; 5 = Blau; 6 = Rot
    '---------------------------------------------------------------------
    lngFlagColor = 3
 
    '---------------------------------------------------------------------
    ' Anzahl markierter E-Mails feststellen
    '---------------------------------------------------------------------
    lngItems = ActiveExplorer.Selection.Count
 
    '---------------------------------------------------------------------
    ' E-Mails bearbeiten
    '---------------------------------------------------------------------
    For lngItem = 1 To lngItems
 
        '-----------------------------------------------------------------
        ' E-Mail referenzieren
        '-----------------------------------------------------------------
        Set objMail = ActiveExplorer.Selection(lngItem)
 
        '-----------------------------------------------------------------
        ' Eigenschaften festlegen und E-Mail speichern
        '-----------------------------------------------------------------
        With objMail
            .FlagRequest = strRequest   ' Nachverfolgungstext
            .FlagStatus = olFlagMarked  ' Nachverfolgungsmarkierung
            .FlagIcon = lngFlagColor    ' Fähnchenfarbe (ab Outlook® 2003)
            .Save
        End With
 
        '-----------------------------------------------------------------
        ' Referenz auf E-Mail löschen
        '-----------------------------------------------------------------
        Set objMail = Nothing
 
    Next
 
End Sub