获取对附加收件箱的引用

Question

获取对附加收件箱的引用

我正在使用Outlook 2007-并且有我的主邮箱：tait，Mark

我还添加了另一个邮箱到我的个人资料：采购，请求

这两个文件夹都显示为Outlook中的顶级文件夹：

邮箱-Tait，Mark>-会话历史记录
-删除项目
-草案
-收件箱
-垃圾电子邮件

邮箱-采购、请求
-对话历史
-删除项目
-草案
-收件箱
-垃圾电子邮件

我可以使用以下方法获得对默认收件箱(Tait，Mark)的引用：
Set Inbox = ns.GetDefaultFolder(olFolderInbox)

如何在“采购，请求”邮箱中引用收件箱？

Answer 1

像这样的事情应该能起作用Dim objNS As Outlook.NameSpaceDim objFolder As Outlook.MAPIFolderSet objNS = GetNamespace("MAPI")Set objFolder = objNS.Folders("Procurement, Request")Set objFolder = objFolder.Folders("Inbox")这个链接有一些有用的代码处理不同的收件箱-可能令人感兴趣

Answer 2

Dim olNS As NameSpaceDim InputFolder As Outlook.MAPIFolderSet olNS = Outlook.Application.GetNamespace("MAPI")' Get reference to folder in users Mailbox for InputSet InputFolder = olNS.Folders("Procurement, Request").Folders("Inbox")' all the emails in the shared inbox are represented by:InputFolder.Items