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 WithEvents outTask As TaskItem
Attribute outTask.VB_VarHelpID = -1

Sub InitializeTaskEvents()
   Set outTask = Application.CreateItem(olTaskItem)
   With outTask
      .Subject = "Task zum Test"
      .Display
      .Save
   End With
   Set outTask = Nothing
End Sub

Private Sub outTask_CustomAction( _
   ByVal Action As Object, ByVal Response As Object, Cancel As Boolean)
   Debug.Print Action.Name
End Sub


