>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

That will get the last e-mail added to the Inbox. If the NewMail event fires because of multiple mail messages coming in, you could miss some of them. Just a reminder.

Good luck!