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