VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ThisOutlookSession"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
   Debug.Print SearchObject.Tag, "endet um " & Time
   Debug.Print SearchObject.Filter
   Debug.Print "Anzahl Items: " & SearchObject.Results.Count
   SearchObject.Results.GetFirst
End Sub

