用于从第二个收件箱中搜索邮件的宏

时间:2016-07-22 09:24:45

标签: vba outlook-vba

我的Outlook中有2个收件箱,我创建了一个从收件箱中搜索邮件的宏,但问题是选择defaultfolder有第一个邮箱,不知道它会如何选择第二个文件夹。

感谢您的帮助。

2 个答案:

答案 0 :(得分:1)

您可以使用以下内容选择要查看的Outlook帐户:

Outlook.Session.Accounts.Item(1) 'Change 1 to 2 for your alternate account

有关示例,请参阅Ron de Bruin's website

答案 1 :(得分:0)

如果您有两个收件箱,那么这对您没有帮助。如果是这种情况,请参阅CoRrRan发布的其他答案。但是,根据您的问题,您似乎试图让它搜索除默认邮箱之外的其他文件夹。要返回其他文件夹,请使用以下内容。

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = myFolder.Folders("Folder Name")

您只需更改"文件夹名称"无论你叫什么。然后,您可以将项目设置为等于myNewFolder.Items。