Outlook XP, VBA (Open-Anweisung für Termin- und Aufgabenformular)

Hallo Leute

Befinde mich im VBA-Editor von Outlook XP und komme einfach nicht weiter.

Meine Frage:
Wie erstelle ich eine Prozedur, welche gestartet wird sobald ein neues oder bestehendes Element (Termin und Aufgabe) geöffnet wird?

Bemerkung:
In Excel löse ich das ganze mit der Workbook_Open-Anweisung unter Diese Arbeitsmappe. In Word mit Document_Open in ThisDocument. Aber eben. Wie funzt das mit dem Outlook?

Mein unbrauchbarer Versuch:
'Öffnet einen neuen Termin und zeigt eine Msgbox an
Sub Test1()
Set myolapp = CreateObject(Outlook.Application)
Set myNameSpace = myolapp.GetNamespace(MAPI)
Set myPrivateFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
Set myPrivateItem = myPrivateFolder.Items.Add
myPrivateItem.Display
MsgBox Element geöffnet, vbInformation, Test
End Sub

Wäre super wenn mir jemand von Euch Hilfestellung geben könnte.

Gruss
Michael Spa

Habe die Lösung soeben aus anderer Quelle erhalten (hurra):

'Alles in DieseOutlooksitzung kopieren
Dim WithEvents myInspectors As Outlook.Inspectors

Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
Dim objItem As Object
Set objItem = Inspector.CurrentItem
MsgBox TypeName(objItem)
End Sub

Private Sub Application_Startup()
Set myInspectors = Application.Inspectors
End sub

Gruss
Michael Spa

Ola und Dank für die Lösung
;D