debugon=true servername="EXCH1" mailboxname="john1" Set objSession = CreateObject("MAPI.Session") objSession.Logon "","",false,true,true,true,servername & vbLF & mailboxname Set CdoInfoStore = objSession.GetInfoStore Set CdoFolderRoot = CdoInfoStore.RootFolder ' Start at the very top of the information store set oFolders = cdoFolderRoot.folders if ofolders.count > 0 then for each ofolder in oFolders if debugon = true then wscript.echo "Processing : " & oFolder.Name & " : " & ofolder.ID end if t = checkmsgsinfolder(ofolder, objSession) next else wscript.echo "No folders to process" end if wscript.echo "" wscript.echo "Finished" wscript.quit function checkmsgsinfolder(folder, objsession) for each mfolder in folder.folders wscript.echo "Sub folder found : " & mfolder.name & " : " & mfolder.ID x = checkmsgsinfolder(mfolder, objsession) next end function