Versuch mal folgende Zeilen im Klassenmodul 'ThisOutlookSession':
Option Explicit
Private WithEvents itms As Outlook.Items
Private Sub Application_Startup()
Set itms = Application.GetNamespace("MAPI").Folders("emailadresse@domain.tld").Folders("Postausgang").Items
End Sub
Private Sub itms_ItemAdd(ByVal Item As Object)
'*** TODO Hier Dein Vorhaben
End Sub
|