Scriptstart nach eingang einer Mail in Outlook

Sub MoveItems()
 Dim myNameSpace As Outlook.NameSpace
 Dim myInbox As Outlook.Folder
 Dim myDestFolder As Outlook.Folder
 Dim myItems As Outlook.Items
 Dim myItem As Object
 
 Set myNameSpace = Application.GetNamespace("MAPI")  
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Buchen")  
 Set myItems = myInbox.Items
 Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("PS")  
 Set myItem = myItems.Find("[SenderName] = 'Test Mail'")  
 While TypeName(myItem) <> "Nothing"  
 myItem.Move myDestFolder
 Set myItem = myItems.FindNext
 Wend
End Sub