Local loOutlook As Outlook.Application Local loNameSpace As Outlook.NameSpace Local loInBox As Object Local loMSG As Outlook.MailItem Local lnUnRead As Integer Local loAttach,llAttach #Define olFolderInBox 6 loOutlook = Createobject('Outlook.Application') && loNameSpace = loOutlook.GetNamespace("MAPI") loInBox = loNameSpace.GetDefaultFolder(olFolderInBox) lnUnRead = 0 For Each loMSG In loInBox.Items If loMSG.UnRead loAttach = loMSG.attachments && attachments object llAttach = Iif(loAttach.Count > 0,.T.,.F.) && number of attachments lnUnRead = lnUnRead + 1 tem= loMSG.SenderName temO=loMSG.SenderName son = mdy(loMSG.SentOn) sub = loMSG.Subject =loMSG.Move(loNameSpace.Folders("Personal Folders").Folders("inboxtemp")) Endif Endfor