• 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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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