Thanks
to avoid to search the complete inbox i use
the follow method (after an tip in fox advisor)


lo=CreateObject("Outlook.application")
LoSpace=lo.GetNameSpace("MAPI")
LoInbox=loSpace.GetDefaultFolder(6)
loMsg=loInbox.Items(loInbox.Items.count)

achim