Outlook Betreff bei eintreffender Email ändern

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim varEntryIDs, objItem As Object, i As Integer
    ' EntryIDCollection liegt als String getrennt mit Komma vor, trenne diese in ein Array  
    varEntryIDs = Split(EntryIDCollection, ",")  
     ' Für jede eingetroffene Mail ...  
    For i = 0 To UBound(varEntryIDs)
        ' hole das Mailobject anhand der ID  
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        ' wenn der Typ des Objects einer Mail entspricht  
        If objItem.Class = olMail Then
            ' ändere Subject  
            objItem.Subject = "x_" & objitem.Subject  
            ' und speichere die Mail ab  
            objitem.Save
        End if
    Next
End Sub