>For Each loMSG In loInBox.Items >>along these lines - excuse the syntax
>For Each loMSG loInBox.Items.loAttach >>
>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 >>