Hallo,

ja da gehört er auch hin oder man nimmt eine eigene Klasse, aber man muß den Code ein bißchen umschr, die Events müssen noch mit einem App-Event initialisert werden:

Option Explicit

Private WithEvents myItem As Outlook.MailItem
 
Private Sub myItem_Close(Cancel As Boolean)
If myItem.Subject = "Meine Mail" Then '// Hier Dein Mail Betreff eingeb, oder kannst auch Titel abfr. etc...
   '// Deine Aktion....
   Set myItem = Nothing
End If
End Sub

Private Sub Application_ItemLoad(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then Set myItem = Item
End Sub

Gruß,