LOCAL loOutlook   AS Outlook.Application
LOCAL loNameSpace AS Outlook.NameSpace 
LOCAL loInBox     AS Object 
LOCAL loMSG      AS Outlook.MailItem 
LOCAL lnUnRead    AS Integer 

#DEFINE olFolderInBox      6
#DEFINE olFolderDone      3

loOutlook   = CREATEOBJECT('Outlook.Application') &&
loNameSpace = loOutlook.GetNamespace("MAPI")
loInBox     = loNameSpace.GetDefaultFolder(olFolderInBox)
lnUnRead    = 0

oloMSG = olNameSpace.GetDefaultFolder(olFolderInBox).Items
FOR EACH loMSG IN loInBox.Items
  
IF loMSG.UnRead 
wait window loMSG.Subject            
loMSG.Move(loNameSpace.Folders(6).Folders(3))    
Endif
Next