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 *-- At this point we have the InBox Object. *-- Let's display how many messages we have in the Inbox. Mess = "You have " + Transform(loInBox.Items.Count) + " Messages"+Chr(13)+"Scanning for unread messages" Wait Window Mess+Chr(13)+"Please wait...." Nowait At 3,112 For Each loMSG In loInBox.Items If loMSG.UnRead loAttach = loMSG.attachments && attachments object llAttach = Iif(loAttach.Count > 0,.T.,.F.) && number of attachments loMSG.SaveAs('c:\vaniermu\attachments\email.txt',0) wordfound = "N" lnUnRead = lnUnRead + 1 tem= loMSG.SenderName temO=loMSG.SenderName son = mdy(loMSG.SentOn) sub = loMSG.Subject * loMSG.body If llAttach loAttachment = loMSG.attachments(loAttach.Count) For Each loAttachment In loMSG.attachments loAttachment.SaveAsFile("c:\vaniermu\attachments\"+loAttachment.filename) && save attachment Next endif *loMsg.unRead = .F. && Mark it as read =loMSG.Move(loNameSpace.Folders(1).Folders(14)) **ELSE &&& this displays titles of read messages ** ? "Read Message Subject: " + loMSG.Subject Endif Endfor