Question

尝试访问Outlook中的共享邮箱子文件夹以测量在此子文件夹中收到的电子邮件。

我正在努力访问名为“ 0674”的子文件夹，但出现错误

数组索引超出范围

Public Sub Collect()
Dim olApp As Outlook.Application
Dim xlRow As Long
Dim NS As Outlook.Namespace

Dim olSharename As Outlook.Recipient

Dim Folder As Outlook.Folder
Dim myFolder  As Outlook.Folder

Dim myItem As Object

Dim myReplyItem As Outlook.MailItem

Set olApp = Outlook.Application

Set NS = olApp.GetNamespace("MAPI")

Set olSharename = NS.CreateRecipient("xxxxx@xxxx.com")

Set Folder = NS.GetSharedDefaultFolder(olSharename, olFolderInbox) _

Set myFolder = Folder.Folders("0674")

Answer 1

首先，您需要在代码中创建一个新的Application实例：

Set olApp = Outlook.Application

它应该看起来像这样：

Set olApp = New Outlook.Application

如果您在Outlook中运行代码，则需要使用Application属性：

Set olApp = Application

但是，如果您尝试从其他应用程序自动执行Outlook，则还需要通过转到“工具”->“引用”->“ Microsoft Outlook X.0对象库”并单击“确定”来添加引用。

在Automating Outlook from a Visual Basic Application文章中了解有关此内容的更多信息。

访问共享邮箱中的子文件夹

1 个答案: