У меня не было проблем со следующим сценарием, выполняемым из OutlookSpy (нажмите кнопку «Редактор сценариев» на панели инструментов OutlookSpy, вставьте сценарий, нажмите «Выполнить»).
Сценарий перемещает сообщения, выбранные в Outlook, в папку, возвращаемую методом PickFolder. Работает как положено с целевыми папками PST и Exchange.
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
dim messages()
set sel = Application.ActiveExplorer.Selection
redim messages(sel.Count-1)
for i = 1 to sel.Count
messages(i-1) = sel.Item(i).EntryID
next
set targetFolder = Session.PickFolder
set sourceFolder = Session.GetFolderFromID(Application.ActiveExplorer.CurrentFolder.EntryID)
sourceFolder.Items.MoveMultiple messages, targetFolder