[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 147
  • Last Modified:

I am looking for a way to recursively

I am looking for a way to recursively
loop through all the folders in outlook.  Do you have a code snippet that does this neatly??  Or can
you put in the right direction.

0
ernst8498
Asked:
ernst8498
1 Solution
 
gbarenCommented:
Hello ernst,

Here it is:

Sub RecurseChildFolders(objFolder as Folder, iLevel as Integer)
dim objChild as Folder

   debug.print tab(ilevel * 4); objFolder.Name
   for each objChild in objFolder.Folders
       RecurseChildFolders(objFolder, iLevel + 1)
   next
end sub
0
 
ernst8498Author Commented:
Thanks again...
0
 
DanRollinsCommented:
My recommended disposition is:

    Accept gbaren's comment(s) as an answer.

DanRollins -- EE database cleanup volunteer
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now