Public WithEvents myItem As Outlook.MailItem
Dim myApp As New Outlook.Application


Private Sub Application_Startup()
       Set myApp = CreateObject("Outlook.Application")
       Set myItem = myApp.ActiveInspector.CurrentItem
       ......
End Sub


Private Sub myItem_Close(Cancel As Boolean)

    Dim objNS As Outlook.NameSpace
    Set objNS = GetNamespace("MAPI")
    
    Dim destFolder As Object  'Outlook.MAPIFolder
    Set destFolder = 
objNS.GetDefaultFolder(olFolderInbox).Folders("Processed")
    
    
    Set myItem = Application.ActiveInspector.CurrentItem
    
    If Not (myItem.MessageClass = "IPM.Note.PDV_Nachricht_de" Or _
              myItem.MessageClass = "IPM.Note.PDVA_Nachricht_de" ) Then
       MsgBox " Nothing happens"
    Else
            myItem.Move destFolder
    End If
    
End Sub