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 outJournal As JournalItem
Attribute outJournal.VB_VarHelpID = -1

Sub InitializeJournalEvents()
   Set outJournal = Application.CreateItem(olJournalItem)
   With outJournal
      .Subject = "Item zum Test"
      .Display
      .Save
      .StartTimer
   End With
   Set outJournal = Nothing
End Sub

Private Sub outJournal_Write(Cancel As Boolean)
   Debug.Print outJournal.Subject
End Sub

