[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 148
  • 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

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

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