如何使用VBA如何将Outlook 2010中的电子邮件从我的辅助帐户收件箱移动到指定的文件夹中

Question

我有两个连接到outlook 2010的电子邮件地址。我正在使用VBA宏将所选邮件从收件箱移动到指定文件夹。它适用于我的主要帐户。很遗憾，我无法将其用于我的辅助帐户。它总是将邮件移动到我的主帐户文件夹。我的问题是： 如何设置对我的辅助帐户的有效引用，以解决问题？ 我应该提供完整的电子邮件地址来代替“myemail”吗？

Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Set objNS = GetNamespace("MAPI")
Set objFolder = objNS.Folders("myemail")
Set objFolder = objFolder.Folders("XYZ")

Answer 1

执行此操作的最佳和最透明的方法可能是首先打开辅助帐户的Outlook应用商店。您可以使用以下命令获取所有商店的列表（Outlook中的数据文件）（请参阅Link）

Set objStores = objNS.Stores

然后，您可以在商店对象上调用GetRootFolder或GetSpecialFolder以检索子文件夹引用。另请查看http://msdn.microsoft.com/en-us/library/office/bb206775(v=office.12).aspx以获取有关如何获取商店信息的示例。