vbs mapi email verschieben

hab ein script geschrieben das mir die inbox durchsucht ein bestimmtes attachment findet und dies in ein bestimmtes verzeichnis speichert.

' Verbindung zru Mapi Session
Set objSession = CreateObject(mapi.session)
objSession.Logonoutlook
' findet das Attachment und speichet es in einem Verzeichnis
For Each objMessage In objSession.Inbox.Messages
For Each objAttachment In objMessage.Attachments
If objAttachment = hallo.pae Then
objAttachment.WriteToFilec:\temp\hier.pae
End If
Next
Next
objSession.Logoff


mein problem besteht darin das ich die betreffende mail nicht in einen von mir angelegten outlook- ordner verschieben kann.
ich hoffe mir kann jemand hefen. komm hier einfach nicht mehr weiter.