> >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 > > > >