从其他用户的收件箱（Outlook收件箱）读取邮件的VBA代码

Question

  

可能重复：
  Outlook 2007 VBA to get reference to additional Inbox

我们需要通过文件打开Microsoft Outlook中的其他用户收件箱 - >打开 - >其他用户的文件夹。然后我们需要检查邮件。我们尝试了以下代码

  Set olApp=CreateObject("Outlook.Application") 
     Set olns=olApp.GetNameSpace("MAPI") 
     Set objFolder=olns.GetDefaultFolder(6)
     For each item1 in objFolder.Items 
             msgbox item1.subject     
     Next

但是使用此代码我们无法读取其他用户收件箱中的邮件，因为GetDefaultFolder方法参数是6 ..有人可以帮忙吗

Answer 1

您可能希望使用以下内容：

Dim objFolder As Outlook.Folder
Set objFolder = Application.Session.PickFolder

这会弹出一个框，允许您选择要从中选择要读取的文件夹...但是，此选项需要一些用户交互。

您可能还想尝试使用以下更改代码：

Set ObjFolder = Application.Session.GetDefaultFolder(variable)

其中variable是默认文件夹的名称，即对于您的收件箱，它是olFolderInbox