#include include\XLcons.h oOutLookObject = Createobject('Outlook.Application') olNameSpace = oOutLookObject.GetNameSpace('MAPI') loInbox=olNameSpace.GetDefaultFolder(olFolderInbox) loNewFolder = loInbox.folders("Euro") create cursor curList (item c(40),att c(40)) for i = loInbox.Items.Count to 1 step -1 &&Loops through all the inbox messages myItem = loInbox.Items(i) if myItem.Attachments.Count > 0 for myAttached= 1 TO myItem.Attachments.Count && Loops through all attachments lcFilename = upper(myItem.attachments.Item(myAttached).filename) insert into curList (item,att) values (myItem.Subject,lcFilename) if myItem.Subject=[Euro] =myItem.move(loNewFolder) endif endfor endif endfor