>The code below moves unread emails from the inbox to a folder called 'Done'. It works on my computer but it's a little difficult to figure out the folder names-numbers on other computers - it's guess work. On one i worked on inbox is folder is 4 - on mine it's folder 1.
>Is there a couple of line of code i can introduce to show what folder names correspond to what folder numbers - there sems to be no logical ordering of numbers.
>
>thanks k
>

clear 
loOutlook   = Createobject('Outlook.Application') &&
loNameSpace = loOutlook.GetNamespace("MAPI")
lnCount = loNameSpace.Folders.Count
for i = 1 to lnCount
  ?"Main Folder: "+loNameSpace.Folders(i).name
  lnCountSub=loNameSpace.Folders(i).Folders.Count
  for j = 1 to lnCountSub
     ?"   Sub Folder:  "+loNameSpace.Folders(i).Folders(j).Name 
  endfor
endfor