将多封邮件移至其他商店中的文件夹

Question

我正在将Outlook兑换库（http://www.dimastr.com/redemption/home.htm）用于我的Outlook加载项。我想将多个邮件从交换帐户移到PST商店。

onlineAccountFolder.Items.MoveMultiple(onlineEntryIds, targetFolderInPstStore);

源文件夹邮件是从Exchange帐户中剪切出来的，但是没有粘贴到目标文件夹中。他们走了。

我在同一存储区的Exchange帐户文件夹上尝试了相同的操作，并且移动操作成功。这些项目已移至目标文件夹。

我可以在其中定义StoreID的'MoveMultiple'方法没有重载。

Answer 1

我对从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

Answer 2

使用Move类的RDOMail方法在Outlook中的商店之间移动项目。