获取对附加收件箱的引用

Question

获取对附加收件箱的引用我正在使用Outlook 2007-并且有我的主邮箱：tait，Mark我还添加了另一个邮箱到我的个人资料：采购，请求这两个文件夹都显示为Outlook中的顶级文件夹：邮箱-Tait，Mark>-会话历史记录-删除项目-草案-收件箱-垃圾电子邮件邮箱-采购、请求-对话历史-删除项目-草案-收件箱-垃圾电子邮件我可以使用以下方法获得对默认收件箱(Tait，Mark)的引用：Set Inbox = ns.GetDefaultFolder(olFolderInbox)如何在“采购，请求”邮箱中引用收件箱？

Answer 1

像这样的事情应该能起作用

Dim objNS As Outlook.NameSpace

Dim objFolder As Outlook.MAPIFolder

Set objNS = GetNamespace("MAPI")

Set objFolder = objNS.Folders("Procurement, Request")

Set objFolder = objFolder.Folders("Inbox")

这个链接有一些有用的代码处理不同的收件箱-可能令人感兴趣

Answer 2

Dim olNS As NameSpace

Dim InputFolder As Outlook.MAPIFolder

Set olNS = Outlook.Application.GetNamespace("MAPI")

' Get reference to folder in users Mailbox for Input

Set InputFolder = olNS.Folders("Procurement, Request").Folders("Inbox")

' all the emails in the shared inbox are represented by:

InputFolder.Items