For Each loMSG In loInBox.Itemsalong 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.Itemsthanks for any suggestions