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