Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
menu search
person
Welcome To Ask or Share your Answers For Others

Categories

Building up on this one, here, how can one iterate through the subfolders of a subfolder of the inbox folder of a shared mailbox?

I'm failing to find a solution so far.

Hopefully we'll find an answer.

See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
1.0k views
Welcome To Ask or Share your Answers For Others

1 Answer

Defining:

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("[email protected]") ' Update email
   
Dim Inbox As Outlook.MAPIFolder
Set Inbox = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox)

And:

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

And then calling the LoopFolders InboxSubfolder, will iterate through the subfolders of the InboxSubfolder.


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
...