Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: Outlook List Enumerate Folder Subfolders Inbox Personal Outlook.Application udfGetSubfolders Recursive UDF
#DefineFunction udfGetSubfolders(objParentFolder, itemlist) colFolders = objParentFolder.Folders ForEach objFolder In colFolders objSubfolder = objParentFolder.Folders(objFolder.Name) If itemlist == "" itemlist = objFolder.Name Else itemlist = itemlist:@TAB:objFolder.Name EndIf itemlist = udfGetSubfolders(objSubfolder, itemlist) Next Return itemlist #EndFunction olFolderInbox = 6 objOutlook = ObjectCreate("Outlook.Application") objNamespace = objOutlook.GetNamespace("MAPI") objInbox = objNamespace.GetDefaultFolder(olFolderInbox) ret = udfGetSubfolders(objInbox, "") AskItemlist("Inbox - List of SubFolders", ret, @TAB, @UNSORTED, @SINGLE ) objPersonalFolder = objNameSpace.Folders('Personal Folders') ret = udfGetSubfolders(objPersonalFolder, "") AskItemlist("Personal Folder - List of SubFolders", ret, @TAB, @UNSORTED, @SINGLE ) objPersonalFolder = 0 objInbox = 0 objNamespace = 0 objOutlook = 0
Article ID: W18092
Filename: List Subfolders.txt
File Created: 2011:05:18:08:13:44
Last Updated: 2011:05:18:08:13:44