' <DieseOutlookSitzung>
Private WithEvents m_Explorer As Outlook.Explorer
Private WithEvents m_Mail As Outlook.MailItem
Private m_IgnoreEvent As Boolean

Private Sub Application_Startup()
  Set m_Explorer = Application.ActiveExplorer
End Sub

Private Sub m_Explorer_SelectionChange()
  Dim obj As Object
  Dim Sel As Outlook.Selection

  Set m_Mail = Nothing

  Set Sel = m_Explorer.Selection
  If Sel.Count Then
    Set obj = Sel(1)
    If TypeOf obj Is Outlook.MailItem Then
      Set m_Mail = obj
    End If
  End If
End Sub

Private Sub m_Mail_PropertyChange(ByVal Name As String)
  On Error Resume Next

  If m_IgnoreEvent = False Then
    If Name = "FlagStatus" Then
      If m_Mail.FlagStatus = olFlagComplete Then
        m_IgnoreEvent = True
        m_Mail.FlagStatus = olNoFlag
        m_Mail.Save
        m_IgnoreEvent = False
      End If
    End If
  End If
End Sub
' </DieseOutlookSitzung>