vba - 如何遍历共享邮件收件箱文件夹的子文件夹的子文件夹？

Question

在此基础上，在这里，如何遍历共享邮箱的收件箱文件夹的子文件夹的子文件夹？

到目前为止，我还没有找到解决方案。

希望我们能找到答案。

标签： vbaoutlook

Answer 1

定义：

Option Explicit

Sub inbox_working()
   
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim Sht As Excel.Worksheet

Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
   
Dim olNs As Outlook.Namespace
Set olNs = olApp.GetNamespace("MAPI")
   
Dim olRecip As Outlook.Recipient
Set olRecip = olNs.CreateRecipient("[e-mail]") ' Update email
   
Dim Inbox As Outlook.MAPIFolder
Set Inbox = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox)

和：

Dim InboxSubfolder as Outlook.Folder
Set InboxSubfolder = Inbox.Folders("NameOfSubfolder")

然后调用LoopF​​olders InboxSubfolder，将遍历InboxSubfolder 的子文件夹。