Hi Markus!

I tried your code to my application but an error occured, my solution is to replace:

GetObject(, "Outlook.Application") to CreateObject("Outlook.Application")

then it works ok.....

Thanks for your shared ideas....

**************************************************
** Your message

Hi Vidar

This will show you the first Email in the Inbox


oOutlook = GetObject(,"Outlook.Application")
oNameSpace = oOutlook.GetNameSpace("MAPI")
oExplorer = oOutlook.Explorers.Add(oNameSpace.Folders[1],0)
oExplorer.Activate()
oInbox = oNameSpace.GetDefaultFolder( 6 )
omyItem = oinbox.Items(1)
omyItem.Display

HTH
Markus