this is the start of outlook automation - is there a way to streamline the search so that only emails with attachments are inspected without having to use if clause:

instead of

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

thanks for any suggestions
k