WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE and Outlook
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

List Outlook Subfolders

 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