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

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

vba outlook

使用VBA如何将outlook 2010中的电子邮件从辅助帐户收件箱移动到指定文件夹,vba,outlook,Vba,Outlook,我有两个电子邮件地址连接到outlook 2010。我正在使用VBA宏将选定邮件从收件箱移动到指定文件夹。它对我的主要客户非常有效。不幸的是，我无法将其用于我的辅助帐户。它总是将邮件移动到我的主帐户文件夹。我的问题是：如何设置对我的辅助帐户的有效引用以解决此问题？我应该提供完整的电子邮件地址来代替“myemail”吗最好且最透明的方法可能是首先为辅助帐户打开Outlook存储。使用以下命令可以获取所有存储（Outlook中的数据文件）的列表（请参阅）然后可以调用store对象上的GetR

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

最好且最透明的方法可能是首先为辅助帐户打开Outlook存储。使用以下命令可以获取所有存储（Outlook中的数据文件）的列表（请参阅）

然后可以调用store对象上的GetRootFolder或GetSpecialFolder来检索子文件夹引用。另外，请查看有关如何获取商店信息的示例。

我没有使用两个帐户的经验，它是否同时打开？我是说同时收到邮件？或者必须关闭一个帐户？这两个帐户在outlook中同时打开

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

Set objStores = objNS.Stores