#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